iy 5 % is ;
COLT
UPDATE! Magazine P.O. Box 1095 Peru iN 46970
S4.50/Issue S1S/VYear October 1994
* UPBATE COMPUTER SYSTEMS MAGAZTHE *
UPDATE. COMPUTER SYSTEMS is Edited and Published by Frank and
Carol is of P.O. Box 1095, Peru, IN 46970 USA. The phone
nuaber 317-473-8031 for both voice and fax, with normal phone
hours being between 5 P.M. and 9:30 P.M. Eastern Time during the
| noon to 6 P.M. on weekends, Please use the answering
f ve are not home, Most answers to questions left on
iine will be by mail, long distance charges are too
for a small magazine.
ate of the magazine: all issues will be mailed out near
of the months of October, January, April and July. All
within the USA are by bulk mail and may take a few
weeks to reach you at the most. Those wishing to have faster
service may pay $4 extra for First Class Hail. The present rate
for North America is $18 in USS, and $22 for the rest of the
world, Back issues of the magazine are available for $16 per
year in North America and $18 elsewhere (it is cheaper to mail a
bunch as opposed to one issue at a time). There are four issues
to a year, with each year of a subscription starting in October
and ending with the July issue, at which time your subscription
renewal is due. Timely renewals are what Keep us in business?
Assistance in publishing this magazine is provided by you the
readers, many of whom have contributed often in the way of
reviews and articles. He offer you our heartfelt thanks. Our
main assistant locally is longtime friend and colleague, Eliad
P, Kannun, Poet and Psychologist, as well as Sinclair computer
user. Kany thanks to our regulars such as Hike Felerski, Bill
Cable, Peter Hale, Paul Holmgren, Al Feng, Don Lambert, Bob
Hartung and many others. You are all welcome to submit material
for inclusien in the magazine. Please make all hard copy
submissions letter or NLQ; no draft print copies, as we do not
have much time for re-typing. Send at least two copies hard copy
and the article or artwork on disk where possible. No audio tape
submissions, as we do not use tape as a media, please. Try to
avoid flowery or hard to read fonts...unless you are showing us
a sample of the output of a progran. If artwork is to be
included in the article, please let us know in what order you
think it should be displayed.
Those wishing to place ads in UPDATE HAGAZINE: We have two ways
of handling ads. ONE, we will do reciprocal ads for other
publications (generally on a year for year basis, with you
sending us a copy of the issues the ad is placed in}. The other
way is to purchase ad space from us, with the following rates in
effect for now: $15 per quarter page; $25 per half page; and $40
per full page ad. This is per issue. For inclusion in all four
issues, you pay for three issues, in advance, and get the fourth
ad free, Should you have questions on this please contact Frank
Davis, by mail or phone as listed above.
Ke hope ta be of service to you. Thank yout
UPDATE DIRECTORY FOR OCTOBER 1994
The computer that an article concerns is marked by using the following
mark in the first column of the directory: TS= article for the TS2068 or
Spectrum; QL= article for the QL or QXL; ZX = article for the TS1000,
ZX81, TS1500; 88= article for the Z88. GI means article of general
interest.
Front cover art by Abed Kahale of CATUG, the Chicago Area Timex
User Group
Front Covers --Design and Basic Magazine Information
Page 1--GI--Directory of Issue Contents
Page 2--GI-Editorial by Frank W. Davis
Page 3 --TS--LogiCall Review by Abed Kabale
Page 4--ZX-World Map -Part 2 by Paul Holmgren
Page 12 --Gl-Mechanical Affinity & Update! Ads
Page 13 --GI-Modems or Magic by Abed Kahale
Page 16 --GI- RMG Ad for Rod Gowen
Page 16 --TS--The Best of the Plotter Ad
Page 17 -ZX-Serial Printer Output for ZX81/TS 1000 by Bob Berch
Page 19--TS-How To Build A Larken Dock Board by Les Cottrell
Page 23 --GI--Wanted/For Sale/or Help Needed Ads
Page 24-QL-Review of Chris Boutal’s Genealogist 3 by Hugh Howie
Page 27 --QL-~QLAMBer Update by Al Feng
Page 28 -QL-T/SNUG QL Public Domain Library
Page 29 --GI--QBOX USA Ad
Page 29 -GI-Computer Classics Ad
Page 30 --QL-~-Cable Column by Bill Cable --Archive Series Part 18: Form
Ed -- A Form Editor & Printer for Archive Databases (2nd
and final part)
Page 36 -QL--Pertinent Points on QL Disk Drives by Frank Davis
Page 38 --QL--XTricator, Version 1.75 by Gary Norton, a Review
Page 41 --QL-A Review of je by Eliad P. Wannum (A Financial
Program for the QL)
Page 42 --GI--Report on the Dayton Computerfest in August by F. Davis
Page 43 -QL-QLerk Ad by Wood & Wind Computing
Page 44 --88--Z88 Flo-Chart by Mike Fink of Domino Cubes
Page 45 -88-Domino Cubes 288 Ad
Page 46 --88--Z88 ROM & Internal RAM Upgrade by Dave Bennett
Page 47 --GI--Timex Publication Index, part 1 by Paul Holmgren
Back Covers --TS2068 & QL Update Magazine Issue Disks
THE OCTOBER EDITORIAL
by Frank W. Davis
Once again I set fingers to the keyboard. I often realize just how
much I have come to rely on word processors to do my letters and for
other text items. It is so much better to see the whole concept and be
able to change it in a matter of seconds...and to make as many copies of
it as I wish. For someone who likes to write, this is indeed a minor
miracle! I do, however, find I do at times go ahead and write letters
out by long hand, just to keep my handwriting skills from waning. It can
indeed happen, just as any skill left unpracticed can atrophy with
little or no use. We have all heard the old saying that "it is just like
riding a bicycle, you never forget how". Well, how many of you have
tried to ride a bike lately? I fear that the adequate tennis player that
I was in my youth is but a memory now. I was today listening to a public
radio program from Purdue University that was discussing this subject,
as well as memory and motor skills. It appears that we need to exercise
as many different skills as we can in order to stay sharp as we age.
Doing so can indeed make us better at some things than we were in our
youth, provided we never gave it too much effort in our youth. They
seemed to feel that the use of things such as bingo and learning
computers were both excellent for the aging mind. Perhaps all of us are
getting more out of computers than some realize.
I have to still admit a special fondness for my Sinclair computers.
I have had them long enough to feel comfortable and skillful with them.
It is not that the mere thought of an IBM compatible, or a MacIntosh has
never crossed my thoughts. The MAC is beyond what I wish to pay for a
basic skills computer, whereas I find Windows to be a clumsy environment
to work with and the IBM cannot multi-task in the same manner as a QL. I
have also been a user of AMIGA computers for years. I find them to be
excellent, but not as quick as the QL at multi-tasking. They are great
for graphics and stereo sound (two big weak points on the Sinclairs),
but they are not easy to program. The TS2068, 288 and the QL are easy to
program on and almost a breeze to modify programs on. The QL is now
coming more and more into its own. Those who think no new programs are
available for the TS2068 are probably not active members of a user
group, or do not pay close attention to what is written in UPDATE or the
quarterly put out by TSNUG. To find out about new programs and uses for
the Z88 you would all do wisely to contact Domino Cubes. Mike has a lot
of enthusiasm for this machine and can get you pointed towards some
power processing with this little two pound wonder.
If you have a TS1000 and are looking for a new peripheral for it
contact RMG, Mechanical Affinity, or place a WANTED AD here free (for
subscribers} in UPDATE. If you need to expand your TS2068, do the same,
or get a disk drive system from John Oliger Company. You can, if skilled
enough or know someone who is, follow the instructions in this issue and
build a Larken board for that disk drive setup. For the QL there is so
much happening that you should call Mechanical Affinity or IQLR (those
who subscribe or want to only) and find out just what all is new. There
is the Gold Card, Super Gold Card, two types of hard drive interfaces,
and a new improved graphics card coming out in about another month. This
does not even mention all the new software. We are closer to state of
the art.
LogiCall Review
Auxiliary Operating System AOS-LKDOS
Developer: Bob Swoger
LogiCall contains all the commands required
to run LK-DOS (TS-2068 & Spectrum). It
prompts for a command and executes these
commands with a minimum of typing.
Moves from drive to drive with 2
keystrokes; moves into and out of a word
processor, database, spreadsheet, terminal
program and other programs using a few key-
strokes. Displays word processor files and pic-
tures on the screen without running any program.
FORMAT, MOVE, ERASE, CAT, POINT, and
VERIFY keys all work without the use of the
“RAND USR 100: or PRINT#4: ” that have to
be typed using LKDOS alone. It really proves
itself with multi-drive system and will be of great
benefit even with a single drive. And, it is not
memory hungry, it only occupies one disk track.
It does complete the LarKen Disk Operating
System.
LogiCall comes in two versions, 5.0 for all
including ROMSWITCH and 5.2 for Spectrum
ROM in the doc port. OUT 244, 3 is not required.
A complete file management system, more
accurately a HUMAN INTERFACE (you and
the machine) shows the years of refinements.
Holding down the ENTER key (or the ENTER
and the ‘J’ keys for the RAMDISK) at power up,
displays the CATalog and the Drive? prompt.
ENTER the disk drive number or ‘T’ for tape or
just ENTER to display the Program? prompt.
ENTERing ‘H’ or ‘?’ at either prompt,
displays two screens HELP menu.
ENTERing one of the following at “Program?”
‘9° displays CATalog.
‘V’erbose displays the complete CATalog.
‘Brief displays a CATalog that only shows
programs that can be LOADed and RUN.
‘N? at the scroll? displays the Program?
on CATalogs that scroll off the screen.
“W’ LOADs word processor (TASWORD 11)
OSLKDOS ___&y bee Kahne
*T’erminal LOADs terminal (Mterm 1) program.
‘5° or ‘8° RENAME “old”, “new”. ENTER the
old name “NMI-S2.CM” to be renamed, then
the new “name.B1”.
‘T’ or ‘E°RASE ~ ERASE “.....”. ENTER the
filename and extension.
‘A’dds AUTOSTART to a disk.
‘Stave SAVEs “L.B1”.
‘Z’? COPYs to the TS-2040 printer.
‘C’OPYs to a large printer.
‘N'EW activates AUTOSTART again.
‘0’ or ‘F’ormat LOADs FORMAT.B_
‘6’ or ‘M’ove LOADs MOVE.BL
‘R’ VERIFYs for Cyctic Redundancy Check €frors.
‘K’ SAVEs SCREENS to disk.
‘Qvuits or ‘E’xists to BASIC where the program
can be customized.
‘0, 1, 2, 3 or 4’ moves between drives,
At the Program? prompt, hitting ENTER
without typing a filename activates the SCAN
LOAD mode. The space bar or any key in the
lower key rows advances a BRIGHT BAR down
the screen, the top row of keys will send the
BRIGHT BAR back toward the top. ENTER
keys do work as normal or without shift.
ENTERing a name with an extension of
“C$? at the Program?, LogiCall displays it as a
SCREENS. While ENTERing a name with an
extension of ‘Cm’ or ‘CT’, it displays
MSCRIPT, TASWORD II or SPECTRATERM
word processor files directly from disk.
LogiCall disk ensemble includes VUFILE,
VUCALC, TASWORD I, disk/tape Records
Base and MTERM II among others.
It is like an upgrade from a gear-shift to an
automatic transmission with overdrive.
LogiCall is available from RMG
Enterprises and from Mechanical Affinity.
WORLD MAP
Part 2
} routine to scroll screen up,
to DIRN
;
3E67
327241
409C
409E
and
40A1
half
40A4
40A6
and
40A9
half
32BE41
of map
3E6F
327F41
top
32CB41
top of map
EDSBOC40
40BO 3A8A40
40B3 CB4F
right/left?
40B5 282C
right/left
40B7 CB47
40B9 3A8940
map
40BC 200F
scroll down
40BE FE1A
40CO C8
40C1 3C
40C2 212100
screen line
40C5 19
on screen
40C6
40C9
40CB
40AC
O1F702
40CD
map
40CF
40D0
40D1
40D4
on screen
40D5 54
40D6 5D
40D7 012100
screen line
40DA ED42
last line
40DC
40DF
40E1
O1F702
EDB8
1845
40E3
40E5
right or
40E7
map
40EA 201C
scroll right
0600
CB47
left
3A8840
MSCR LD A,67
LD (4172),A
LD (41BE),A
LD A,6F
LD (417F),A
LD (41CB),A
LD DE, (DFIL)
LD A, (DIRN)
BIT 1,A
JR Z LIRT
BIT 0,A
LD A,(YPOS)
JR NZ SCRD
cP 1A
RET Z
INC A
LD HL,0021
ADD HL,DE
LD BC,02F7
LDIR
oR NEWY
SCRD CP 00
RET Z
DEC A
LD HL,0317
ADD HL,DE
LD D,H
LD E,L
LD BC, 0021
SBC HL,BC
LD BC,02F7
LDDR
oR NEWY
LTRT LD B,00
BIT 0,A
LD A,( XPOS)
JR NZ SCRR
4.
down,
right, or left according
; and fill in the area vacated by scrolling with the map data
;make instructions at 4171
7; at 41BD be RRD to access
smake instructions at 417E
? at 41CA be RLD to access
E = address of display file
D
A = direction to scroll
scroll up/down or
;if bit(1)=0, go scroll
7scroll up or down?
7A = y position of window on
;if bit(1) of DIRN =1, go
zis window at bottom of map? *
7if so, return to BASIC
ryeyed
;HL = 33d = no. chars in
7make HL address of 2nd line
7BC = 759d = 33d * 23d
scroll screen up 1 line
7go update YPOS
7
icheck if window is at top of
f so, return to BASIC
=y-l
IL = 791d = 24d * 33d - 1
tmake HL address of last char
vi
ry
7H.
BC = 33d = no. of chars in
7HL -> last char on next to
7BC = 759d = 33d * 23d
scroll screen down 1 line
+go update YPOS
;check whether to scroll
iget x position of window on
7if bit(0) of DIRN =
1, go
40EC 3C
40ED FES55
edge of map)
40EF 2001
instruction
40F1 AF
edge)
40F2 328840
40F5 13
char on screen
40F6 62
40F7 6B
40F8 23
40F9 3518
40FB
line - 1
40FD EDBO
the left
40FF 23
4106 1823
area to fill
4108 3D
4109 FEFF
edge of map
410B 2002
instruction
410D 3E54
410F 328840
4112 211703
4115 19
right char
4116 54
4117 5D
4118 2B
char
4119
411B OEF1F
line - 1
411D EDB8
right
411F 2B
4120 2B
4121 1B
4122 1B
4123 3D
4124
4126 1803
4128 328940
412B ED4B8840 FFIL
412F 04
414C works
4130 3A8A40
INC A
CP 55
JR NZ
XOR A
NWXL LD (XPOS),A
INC DE
LD H,D
LD L,E
INC HL
LD A,18
NXLL LD C,1F
LDIR
INC HL
INC HL
INC DE
INC DE
DEC A
JR NZ NXLL
JR FFIL
SCRR DEC A
CP FF
JR NZ
LD A,54
NWXR LD (XPOS) ,A
LD HL,0317
ADD HL, DE
LD D,H
LD E,L
DEC HL
LD A,18
NXLR LD C,1F
LDDR
DEC HL
DEC HL
DEC DE
DEC DE
DEC A
JR NZ NXLR
JR FFIL
NEWY LD (YPOS),A
INC B
LD A,(DIRN)
a
LD BC, (XPOS)
px =xtl
;check if x>85d (past right
NWXL vif
not, skip next
;zero x (make it the left
7store new x
ymake DE address of top left
7HL = DE
;make HL address of next char
7make A count 24d times
7BC = 31d = no. of chars in
scroll this line 1 char to
ymove HL past end of line
;past 1st char in next line
ymove DE past last char in
;past end of line char
;countdown A
;go do next line if A <> 0
igo find address of screen
m=x-1
;check if x went past left
NWXR rif not, skip next
;make x the right edge
istore new x
jHL = 791d = 24d * 33d - 1
;make HL address of bottom
iDE = HL
7HL = address of previous
count for 24d lines
7BC = 31d = no. of chars in
scroll this line 1 char to
;countdown A
;if A<>0, go do another line
skip next instruction
store new y
B=y; C=x
7B must be > 0 so DJNZ at
#get direction
4133 FE22
4135 2004
data
4137 3E17
4139 80
to fill
413A 47
413B 21DB42
= 17200d ~- 85d
413E 115500
line
4141 78
4142 D61A
of map
4144 3805
instructions
4146 3C
4147 47
4148 CD8B40
of screen
414B 19
414C 10FD
line y on map
414E E5
414F 09
4150 3A8A40
4153 CB4F
vertical or horiz
4155 282F
4157 ES
on map
4158 2A0C40
415B 23
415C CB47
er down
415E 2004
instructions
4160 11F702
4163 19
4164 EB
DE
4165 El
map
4166 0620
4168 3E56
416A OC
416B B9
416C
instructions
416E El
line
416F E5
4170 AF
4171 ED67
half of map
data into A
4173 EB
4174 77
4175 CBSF
CP 22
dR NZ MPST
LD A,17
ADD A,B
LD B,A
MPST LD HL, 42DB
LD DE,0055
#check if down
;if not, go get start of map
7A = 17h = 23d
yadd 23d to y since we need
; the last screen line
;HL = start of map data - 55h
7;DE = 85d = no. chars in map
LD A,B
SUB 1A ;check if y is in upper half
JR C NXLM ;if so, skip next 3
INC A yadjust y
LD B,A
CALL ACCB gain access to bottom half
NXLM ADD HL,DE sadd 85d
DINZ NXLM ;loop until HL is address of
PUSH HL store it
ADD HL,BC yaad C (get to xth char)
LD A, (DIRN) iget direction
BIT 1,A ;check whether scroll is
JR Z VFIL
HFIL PUSH HL
LD HL, (DFIL)
7go fill a column if vertical
;store address of start char
get start of display file
INC HL ymove past first 118d char
BIT 0,A ;check whether scroll was up
JR NZ stTsc 7if down, skip next 2
LD DE,O2F7 7DE = 23d * 33d
ADD HL,DE 7get to last line on screen
STSC EX DE,HL store screen fill address in
POP HL 7get address of start char on
LD B,20 7loop counter for 32d chars
NXTX LD A,56 the right edge
INC C 7C keeps track of x position
cP c ;check if x went off the edge
JR NZ CLAX 7if not, skip next 2
POP HL iget address of start of map
PUSH HL rrestore stack size
CLAX XOR A 7A = 0
RRD yor RLD if accessing bottom
; this moves 4 bits from map
EX DE,HL 7get screen address into HL
LD (HL),A ;copy map char to screen
BIT 3,A
7should it be inverse?
4177 2804
instructions
4179 CBFE
417B CB9E
417D EB
417E ED6F
half of map
4180
4181
4182
4184
4185
4186 Cl
4187
418B
right or left
418D 200D
fill address
418F 3E1F
4191 5F
4192 19
destination
CB47
4193 81
4194 1E55
4196 BB
right edge?
4197 3803
instructions
4199 EDS52
419B
scroll
419C
419D
41A0
41A1 3003
instructions
41A3 1E1F
41A5 19
line on screen
41A6 EB
41A7 El
41A8 48
41A9 0618
down screen
41AB 180F
41AD 3E19
41AF B9
ED4B8840
RSMX
VFIL
SVMY
SVSY
NXxTY
bottom half of map
41BO0 200A
instructions
41B2 CD8B40
of map
41B5 D5
41B6 114D08
size of map data
41B9 ED52
41BB D1
41BC AF
CLAY
JR 2 RSMX ;if not, skip next 2
SET 7,(HL) ;make it an inverse char
RES 3,(HL)
EX DE,HL ;get map address back into HL
RLD yor RRD if accessing bottom
; this restores map data
INC HL ;move to next map char
INC DE ;move to next screen position
DINZ NXTX ;loop for each char
POP BC ;restore stack
RET ;back to BASIC
POP BC 7restore stack
LD BC,(XPOS) ;B=y, C=x
BIT 0,A ;check whether scroll was
JR NZ SVMY if right, go find screen
LD A,1F ;7A = 31d
LD E,A iDE = 31d
ADD HL,DE jadd to map address since
} is rightmost screen column
ADD A,C 7A = xX + 31d
LD E,55 7;DE = 85a
cP E ;did map address go past
JR C SVMY ;if not, skip next 2
SBC HL,DE ymove back 85d chars
SCF icarry flag remembers a left
PUSH HL store map address
LD HL,(DFIL) ;get start of display file
INC HL 7move past ist 118d char
JR NC SVSY if scroll was right, skip 2
LD E,1F 7DE = 31d
ADD HL,DE ymove to last char on list
EX DE,HL ;Save screen address in DE
POP HL iget map address
LD C,B cay
LD B,18 jloop counter for 24d chars
JR CLAY iskip 1st part of loop
LD A,19 iA = 25d
cP Cc scheck if y has crossed to
JR NZ CLAY
CALL ACCB
PUSH DE
LD DE,084D
SBC HL,DE
POP DE
XOR A
if not, skip the next 5
igain access to bottom half
save screen address
7;DE = 2125d = 25d * 85d =
jadjust map address
irestore screen address
iA = 0
41BD ED67
half of map
data into A
41BF EB
41CO 77
41C1 CBSF
inverse
41C3 2804
instructions
41C5 CBFE
41C7 CB9E
41C9 EB
41CA ED6F
half of map
41CC D5
41CD 115500
41D0 19
41D1 E3
41D2 1E21
41D4 19
41D5 Di
41D6 EB
41D7 oc
41D8 10D3
41DA C9
41DB 320D
variable
screen:
line
41DD 2A1640
41E0 E5
41E1 21DB41
string
41E4 221640
41E7 CD1C1i1
variable
41EA 23
41EB 23
41EC 23
41ED E3
address on stack
41EE 221640
41F1 2A0C40
41F4 112300
41F7 19
41F8 Dl
41F9 011F00
41FC EDBO
41FE 23
41FF OE20
4201 EDBO
4203 C9
4204 2A1040
4207 3E80
4209 BE
420A C8
RRD sor RLD if accessing bottom
; this moves 4 bits from map
EX DE,HL get screen address into HL
LD (HL),A ;copy map char to screen
BIT 3,A ;check if it should be
JR Z RSMY ;if not, skip next 2
SET 7,(HL) ;make it inverse
RES 3,(HL)
RSMY EX DE,HL get map address back into HL
RLD jor RRD if accessing bottom
; this restores map data
PUSH DE ;store screen address
LD DE,0055 7DE = 85d
ADD HL,DE ;move down 1 map line
EX (SP) ,HL tget screen address into HL
LD E,21 ?;DE = 33d
ADD HL,DE ymove down 1 screen line
POP DE restore map address
EX DE,HL jget map address back into HL
INC C keep track of y position
DINZ NXTY ;loop for next char
RET ;back to BASIC
;
STRM DEFB 32 OD 7M$, name of M string
FILM
LKAG
; routine to fill the BASIC string M$ with 63d chars from the
; the last 31 chars from the 2nd line and all 32 from the 3rd
LD HL,(CHAD) ;get current value of CHAD
PUSH HL sstore it
LD HL,STRM ;get address of name of
LD (CHAD),HL j;put it in CHAD
CALL 111C ;ROM routine to find a
INC HL
INC HL
INC HL ;get to first char of string
EX (SP) ,HL ;HL = old CHAD; put M$
LD (CHAD),HL ;restore old value of CHAD
LD HL,(DFIL) j;get start of display file
LD DE,0023 ?DE = 35a
ADD HL,DE get to 2nd char of 2nd line
POP DE iget start of M$
LD BC,OO1F 7BC = 31d
LDIR copy 31d chars
INC HL 7skip over 118d char
LD C,20 7BC = 32d
LDIR ;copy 32d chars
RET 7back to BASIC
LD HL,(VARS) ;find G$ in BASIC variables
LD A,80 ;end of VARS marker
CP (HL)
RET Z scouldn’t find GS
420B
420D
420E
4210
4212
4214
4216
4218
421A
421c
var
421F
4221
4222
4224
4226
4229
422A
422C
string
422D
422E
422F
4230
4231
4232
4234
4235
3E4C
BE
2824
CB6E
2818
CB7E
280E
CB76
2805
111200
227B40
El
23
228240
210000
228440
3E00
328640
218740
3600
MILT
1LTV
SKPV
LD
cP
JR
A,4C
(HL)
Z FDIT
BIT 5,(HL)
JR
2 ARST
BIT 7,(HL)
JR
Z LTV
BIT 6,(HL)
JR
Z MILT
LD DE,0012
JR
SKPV
INC HL
BIT 7,(HL)
JR
LD
Z MILT
DE,0006
ADD HL,DE
JR
LKAG
ARST INC HL
FDIT
SETF
KYLP
IGN3
CRON
SCON
Lb
E, (HL)
INC HL
LD
D, (HL)
INC HL
ADD HL, DE
JR
LKAG
INC HL
LD
E, (HL)
INC HL
LD
D, (HL)
PUSH HL
ADD HL,DE
LD
(GLST) , HL
POP HL
INC HL
LD
LD
(GCUR) , HL
HL, 0000
(TIMR) ,HL
A,00
(TMR3),A
HL, ELEN
(HL) ,00
HL, FLAG
SET 0, (HL)
LD
LD
HL, (TIMR)
DE, 0001
ADD HL,DE
LD
JR
LD
(TIMR), HL
NC IGN3
A, (TMR3)
INC A
LD
LD
LD
(TMR3),A
HL, (DFCC)
A, (TIMR)
BIT 6,A
JR
LD
JR
LD
NZ CRON
(HL) ,00
SCON
(HL) , 80
CALL 02BB
LD
B,H
7G$ marker
;d0R if G$ found
if array or string
;if 1 letter var name
;if more than 1 letter name
718 bytes to skip FOR-NEXT
;loop to find end of var name
76 bytes to skip number
yada to find next var
look again
;get length of array or
yadd and get to next var
;look again
tget length of GS
push start of G$
;find end of G$
7store end
jpop start
7store start of G$
;zero timer
+zero 3rd timer byte
;initialize entry length
yassume a key is depressed
sinc. timer
;no carry?, ignore TMR3
;if carry then
zinc TMR3
get print position
iget low byte of timer
7flash cursor by bit 6
cursor off
7skip cursor on
cursor on
;ROM key scan routine
427E
427F
4280
4283
4285
4287
4288
428A
428C
428E
428F
4291
4294
4295
4297
4299
429C
429E
429F
42Al
42A2
42A5
42A7
42A8
42AA
42AB
42AD
42AE
42Bl
42B4
42B5
42B7
42BA
42BC
42BE
check
42C0
42C3
42C5
42C7
42C8
line
42CB
42CC
42CD
42CE
42CF
42D0
42D1
42D2
2A0E40
3600
1857
SF
2A2940
1002
statement?
42D4
42D6
42D7
42D8
42D9
42DB
42DC
42DE
42E0
42E2
RDKY
NEOL
GOBK
ENTR
VLDK
NXCH
CHK=
LK-,
CK-,
LD C,L
LD E,L ;L=FF if no key pressed
LD HL,FLAG
BIT 0, (HL) ;has flag been reset?
JR Z RDKY ;if so, read key
INC E jis a key pressed?
JR NZ KYLP 7JR if old key still pressed
RES 0,(HL) sready for new key
JR KYLP sloop for proper key
INC E ;is a key pressed?
JR Z KYLP ;if not, loop for key
CALL 07BD decode BC to find address of
LD A,(HL) ;character code of key
CP 77 ;delete key?
JR NZ ENTR 7no? check for enter key
LD HL,ELEN ;get address of entry length
LD A,00
CP (HL) ;length=0?
JR Z SETF ;then don’t delete
DEC (HL) ;dec entry length
LD HL,(DFCC) ;get print position
LD (HL) ,00 7erase character
DEC HL 7move position back
LD A,76
CP (HL) ;end of line in display file?
JR NZ NEOL
DEC HL ;move past EOL character
LD (DFCC),HL j;store new print position
LD HL,(GCUR) ;get current position in G$
DEC HL
LD (HL) ,00 ;erase deleted character
LD (GCUR),HL ;store new position in G$
JR SETF sloop for next key
CP 76 ;check for enter key
JR NZ VLDK ;if not, JR to valid key
LD HL,(DFCC) ;get print position
LD (HL) ,00 7erase cursor
JR EXIT
LD E,A ;store character in E
LD HL, (NXLN) ;get address of next BASIC
INC HL
INC HL
LD B, (HL) ;7B=length of line
DEC B
INC HL
INC HL
INC HL
DINZ CHK= ;nothing left in REM
JR GOBK ;then go back
LD D, (HL) get char in REM
LD A,E get keyed char
cP D yare they equal?
JR Z ADDG yyes? then add to G$
INC HL
DINZ CK-, ynothing left in REM?
JR GOBK yno? then go back
LD A,16 ;check for - character
CP (HL)
42E3
42E5
42E7
42E8
42E9
42EB
42EC
42EE
42F0
42F1
42F2
42F4
42P5
42F6
42F8
42FB
42FC
42PF
4300
4301
4302
4304
4305
4307
4308
430B
430E
430F
4310
4311
4314
4315
4319
431A
431c
431E
4320
4323
4324
23 ENDC
7E LDCH
220E40 NT76
2A8240
FL
73
23
228240
2B
ED4B7B40
AF
ED42
209C
0600 EXIT
218740
4E
cg
as AE |
JR Z ENDC
LD A,1A
cP (HL)
RET NZ
JR NXCH
INC HL
DINZ LDCH
JR GOBK
INC (HL)
LD HL, (DFCC)
LD (HL),E
INC HL
PUSH AF
LD A,76
cP (HL)
JR NZ NT76
INC HL
LD (DFCC) ,HL
LD HL,(GCUR)
POP AF
LD (HL),E
INC HL
LD (GCUR),HL
DEC HL
LD BC, (GLST)
XOR A
SBC HL,BC
JR NZ GOBK
LD B,00
LD HL, ELEN
LD C, (HL)
RET
7go get end character
7check for , character
ynot - or , so REM invalid
+go get next char in REM
ynothing left in REM?
;no? then go back
;A=end character
;CP with keyed character
zis keyed code too large?
;A=start character
7CP with keyed character
zis keyed code too small?
;get address of entry length
yadd 1
;get print position
;print keyed character
;end of line in display file?
;move past EOL character
7get current position in G$
;put keyed char in G$
store new position
+BC points to last byte in GS
;clear carry flag
zany more room in G$?
syes? then GOBK
7get address of entry length
;put length in BC
DAE} ‘PDATE
AGAZTINE
11
MAGAZINE
—
MECHANICAL
AFFINITY
Serving ALL QL Users
Frank bavi Paul Helogren
513 ast Main St 5231 Kilten Wood Court
Pere, Indiana 46170 Indianapolis IN, 46254
317-473-8031 evenings & weekends
Trung Cards, disk interface for teo 360K o 720K disk dives, @O6K of
werory and TK, reconditioned for $100,
Gold Cards 2 drive disk interface, 2 weg wenory,TK2 and 18 negster2
gee, Ail this for only $230.
Super Gold Cards, built in 4 drive alaptor disk interface, 68020
processor, 4 weg of wenory, runs at 24 wegaterz speed,
tuilt in true parailel printer port (with printer cable) and
the latest TK2, The price is $488, Contact us about our
Trump , or Gold Card trade in prograe,
Sinclair & Printers, black eith @ logo, $ pin printers thet are
nade to run vith the OL (seriall. Price is $50.
CUESHELL, the new graphics oriented desktop program for the OL.
It gives you progran options on the soreen, shich you
can easily control, change or launch. It is pointer
environment driven snd wakes full use of level 2
rivers, Our price is $62.
Page Designer 3, the Os easiest to use full feetured desk top
publishing progran, Comes vith toads of fonts and clip
rans
APART RRM REARARRIEE
317-291-6002 evenings & weekends
art ina 4 disk set, You can even use HOF fonts from
Digital Precisions Professional Publisher, as well as
other clip art frow other OL programs. This ad was done
using PO, Our price is $63,
Text@7Plust, an excel tent word prooessor thal alloes you to use
drivers for all the latest printers, gives you aany fonts
as vell as columns end precise control of paper size «a
print size. Our price is $120,
LineDesign Yersion2, 9 top of the line superb vector drawing
progran package that allons you to wix many! fonts and
graphics (10 disk set) with your artwork, For $153.
QL--IDE Hard Drive Interface for only $115.
Detalesign 3, & fast pointer driven database that is easy to set
up and use for the QL, The price is $95.
Gliberator 3.36, compiles virtually al! of SiperBasic, and it is
easy fo use, with OL and QML, The price is $75,
CONTACT US FOR ALL YOUR QL NEEDS, WE'LL D0 OUR BEST!
RIAA AEA UIE TPE
of publication ! | !
We are a large quarterly magazine that is
produced on Sinclair computers. We cover
the QL, Z88, TS2068, Spectrum and the 2X81.
Minimum issue size is 50 pages, and does
include ads from Sinclair dealers. The price is
in North America;
and we do accept the British Pound or the
German Mark equivalents for a subscription.
$18 in USS
Send all funds and requests for a new
Checks,
subscription to:
UPDATE! MAGAZINE
P.O, BOX 1095
PERU, IN 46970 USA
UPDATE! Magazine
The only known, privately produced
Sinclair computer magazine that
covers ALL of the Sinclair computers.
We are now starting our 8th year
all
$22 elsewhere,
travelers
checks, cash are
acceptable.
MODEMS « Magic
by EKkled Kakal CATUG-T/SNUG
My previous article (Modems or Black Magic,
UPDATE! Jan. 94) discussed the basic elements of
communications by modem, but there is a lot more of
this Magic. The field of the Information/
Communications Super Highway is very complex and
new developments appear at fast pace, such as an an-
nouncement by a company that they are developing a
direct wire communications system that obsoletes mo-
dems. With the prevailing use of fiber-optics lines,
communications will be in the millions of data bits
transfer rate such as the cable TV system is now.
Computers —-nor-
mally process 16 or 32
bit words of digital in-
formation on their inter-
nal data buses. Even the
computer’s parallel
printer port offers a data
path that is 8 bits wide.
However there is only
one transmitting wire
(the other wire is for sig-
nal return) in a tele-
phone line. Modems
must break down
(Modulate) each digital
word into a sequence of
audio signals, and send
each signal in tum along
the telephone line. An
8-bit data word is sent
as eight |-bit signals.
Most modems for
computer communication are asynchronous or unsyn-
chronized. (synchronous modems are more expensive,
they require complex circuitry.) Because two commu-
nicating modems are operating asynchronously, the
receiving machine must know when a stream of data is
being sent, where each stream of data starts and ends,
and whether the stream is correct or not (see the
previous article), To accomplish this feat, extra bits are
added to the data to organize it into a standard
sequence known as a dataframe having a start bit, a
data bit, a parity bit and a stop bit.
Port Connections and Signals
The translation from parallel data words to a serial
data strearn takes place within the computer's serial port
circuit in an IC known as a Universal Asynchronous
Receiver/Transmitter (UART). Logic 1’s and 0's are
converted into bipolar signals. Logic I's are translated
to - 5 to - 15 volt levels (mark), and logic 0's are trans-
lated to + 5 to + 15 volt levels (space). Those bipolar
signals are supplied to the TX (transmit) pin of a stan-
dard serial communications port. Those physical con-
nections are also called RS-232C ports. (RS-232C is a
standard of the Electronic Industry Association) In
Europe, the RS-232C standard is called V.24.
An extemal modem connected to the serial port
MOdulates the bipolar TX signal into an audio signal
which is sent over the telephone line. Audio signals
teceived by the modem and DEModulated into bipolar
signals are retumed to
the serial port's RX
(receive) pin. An inter-
nal modem is a plug-in
unit installed inside a
computer containing a
serial port. For most
serial port connections,
only TX , RX and
ground wires are
needed to establish a
working port.
Communications
Software
All communications
software must be able
to operate in two dis-
tinct modes: the com-
mand mode, and the
terminal mode. In the
command mode, any
commands issued control either the communications
software, the host computer, or the modem connected
to it In the terminal mode, any commands issued are
sent directly to the modem, or they are sent through the
modem and to the remote computer modem.
Typical instructions that might be issued in the
command mode include retrieving a telephone number
from a data log, setting the proper communications
protocol, dialing a number, and saving any data that is
teceived to a disk.
In the terminal mode, all keyboard (or disk) input
is sent directly to the modem. If the modem is off-line
or not connected to a remote computer modem, the
input is recognized as modem commands. if the mo-
dem is on-line and has an active connection to a remote
computer modem, all inputs are sent through the mo-
dem to the remote computer unless certain special con-
trol characters precede the data.
13
—————
The difference between the command mode (in
which commands are acted on locally) and terminal
mode (in which commands affect the remote com-
puter) is probably the most confusing aspect of modem
communications for beginners.
One common mistake made by newcomers, for
example, is to initiate a file UPLOAD in terminal mode
without issuing a corresponding command in the
command mode. The first command is required to tell
the computer to send a file. The second is necessary to
instruct the host (remote) computer to receive it and
store it on disk.
Flow Control
To control the flow of data between two modems,
software codes (such as XON and XOFF) are passed
between them. Communications software intesprets
such codes and controls modem operation accordingly.
However, the flow of data between a computer
and modem is not always controlled by software codes.
Instead, additional signal lines in an RS-232 port allow
for hardware flow control (or handshaking). The Re-
quest To Send (RTS) line tells a modem to prepare to
receive data from the computer. Once the modem is
ready to send, it will retum a Clear To Send (CTS)
signal to the computer. RTS and CTS signals act
together to handle data transfer
When the computer is ready for operation (but
not necessarily ready to send data), it asserts Its Data
Terminal Ready (DTR) signal. DTR must remain active
throughout the entire connection time. The modem
sends a Data Set Ready (DSR) signal to the computer
after the modem has been activated, and has finished
self-tests or preparation for connection. The DTR and
DSR signals establish the connection between modem
and computer, but they do not control the flow of data
between the two.
If @ telephone ring signal is detected at the mo-
dem, a Ring Indicator (RI) signal is sent to the
computer. When the modem subsequently picks up
the ringing line and detects the presence of camer, a
Data Carrier Detect (DCD) signal is passed to the
computer. Ring and carrier detect signals invoke the
communication software to receive communication
from a distant modem.
Modulating the Signal
A modem transmits data by-generating a carrier
that is then modulated. Several different methods of
signal modulation have been developed through the
years to improve the efficiency of data transfers. Of
course, two modems must be capable of the same
modulation design for successful communications.
Two modems that are communicating with each
other must generate different carrier frequencies. Each
communication standard defines the transmitting and
feceiving cartier frequency. For example, for 300
BAUD communication, one modem must have a
carrier center frequency of 1170 Hz, and the second
must have a center frequency of 2125 Hz. By conven-
tion, the modem initiating the call, or the originate-
mode modem, has the lower carrier frequency. The
modem receiving the call, or the answer-mode modem,
has the higher carrier frequency
In the early days of modem communication, cach
transition of the audio carrier signal represented a single
bit. Each transition is known as a BAUD, so the BAUD
rate equaled the transmission rate in bits-per-second or
BPS. Unlike those early modems (like the TS-2050),
modern modem designs allow two, three, four, or
more bits to be encoded into every audio signal transi-
tion (or BAUD). This means that modem throughput
now equals two, three, or four times the BAUD rate
being carried on the telephone line.
For example, a modem operating at 2400 BAUD
(2400 audio signal transitions per second) can cary
4800 BPS if two bits are encoded onto every BAUD.
The same 2400 BAUD modem can carry 9600 BPS if 4
bits are encoded onto every BAUD. Today, the mo-
dem’s BAUD rate rarely matches the modem’s bit rate
in BPS. If the modem were operating at 4800 BAUD
with 3-bit encoding, it would be transmitting 14,400
BPS (14.4 KBPS) V.32bis, and so on.
The concept of encoding is different from data
compression. Encoding transfers all original data bits
from one system to another. While data compression
replaces repeating sequences of bits with much shorter
bit sequences known as symbols or tokens. Encoding
designs and data compression are described in more
detail later in this article.
Modulation Designs
All waveforms have three basic characteristics —
amplitude, frequency, and phase. Each of those charac-
teristics can be adjusted to represent a bit.
Frequency-Shift Keying(FSK) is similar To Fre-
quency Modulation (FM) where only the frequency of
a carrier is changed, and it is one of the oldest modula-
tion design still in use. FSK sends a logic | at one
particular frequency (usually 1750 Hz), and a logic 0 is
sent at another discrete frequency (often 1080 Hz).
Frequencies are typically sent at 300 BAUD, and each
BAUD can carry one bit, so FSK can send 300 BPS.
This early technique resulted in the classical “BAUD
equals BPS” which still exists today. Bell 103 was the
widely accepted modem standard — simple FSK
modulation at 300 BAUD. This is the only standard in
which the data rate matches the BAUD rate.
Phase-Shift Keying (PSK) is a close cousin of
FSK, but the phase timing of a carrier wave is altered
while the carrier's frequency stays the same. A logic 1
or logic 0 is represented by the alteration of the camer's
14
phase. Because phase can be shifted in several precise
increments such as 0°, 90°, 180° and 270°. PSK can
encode one, two, three, or more bits bit per BAUD. A
1200-BAUD modem using PSK can transmit 2400 BPS
over an 1800 Hz carrier. PSK in conjunction with FSK
can encode even more bits per BAUD.
In Quadrature-Amplitude Modulation (QAM),
both the phase and amplitude of the wave are modu-
lated to encode up to six bits onto every BAUD, al-
though only four bits are usually reserved for data.
Most QAM modems have a 1700-Hz or 1800-Hz carrier
and a base rate of 2400 BAUD, so they can carry up to
9600 BPS.
Trellis-Coded Quadrature-Amplitude Modulation
(TCQAM or TCM) also generates an !800-Hz carrier at
a 2400-BAUD base rate, but it uses the fill 6-bit encod-
ing capability of QAM to provide a rate of 14400 BPS.
TCM is now the most popular modulation design for
high-performance modems because data can be
checked on-the-fly with high reliability.
As the speed increases, line noise becomes very
critical to communications and error correction be-
comes vital
MNP Standards
The Microcom Networking Protocol (MNP) is a
complete hierarchy of standards developed during the
mid 1980s. They were designed to work with other
modem technologies to provide error correction and
data compression. Originally developed by Microcom
Inc., the protocol is now in the public domain.
MNP provides error control and data compression
when one modem is communicating with another mo-
dem that supports MNP. MNP class 4 is specified by
the ITU (Intemational Telecommunications Union)
V.42 asa error control design for LAPM (Link
The Vees — The Most
Access Procedure for Modems) in the event that V.24
cannot be invoked. Out of ten MNP levels, most mo-
dern modems support MNP2 to MNPS. Each MNP
class has all the features of the previous class plus its
own.
MNP class 2: (stream mode): Data is sent in both
directions at the same time. That results in a speed
about 84% as fast as data transmissions with no error
correction.
MNP class 3: The sending modem strips the start
and stop bits from a data block before sending it. The
receiving modem then adds start and stop bits before
passing the data to the receiving computer. It is about
8% faster than data transmissions with no error correc-
tion.
MNP class 4: A protocol (with some data com-
pression) that checks telephone connection quality and
uses adaptive packet assembly. On a noise free line,
the modem sends larger blocks of data such as 1024
bytes. If the line is noisy, the modem sends smaller
blocks of data such as 128 bytes so that less data must
be resent in the event of an error.
MNP class 5: Provides data compression by de-
tecting redundant data and converting it to fewer bits or
tokens, thus increasing effective data throughput. A
receiving modem decompresses the data before passing
it to the receiving computer. MNP5 can speed data
transmissions by as much as a factor of two compared
with protocols having no data compression or error
correction design.
MNP class 6: Universal link negotiation allows
modems to obtain maximum performance from a line.
The modems start at low speeds, then move to higher
speeds until the best speed that both modems can work
at is reached.
Common ITU Standards
V.17—Descnbes an application-specific modulation design
for Group 3 fax which provides two-wires half-duplex,
trellis-coded transmission at 7200, 9600, 12000, and 14400
BPS. Despite its low number, this is a recently introduced
standard.
V.21—Provides the specifications for 300 BPS FSK serial
modems (based on BELL103).
V.22-Provides the specifications for 1200 BPS (600 baud)
PSK modems (based upon BELL212A)
V.32—Defines the first of the truly modern modems as a
9600/4800-bps, QAM, full-duplex modem operating at
2400 baud. This standard also incorporates trellis coding
and echo cancellation to produce a stable, reliable, high-
speed modem.
V.32bis—A fairly new standard extending the V.32 specifi-
cation to define a 4800/7200/9600/12000/14400 BPS
TCQAM full-duplex modem operating at 2400 baud.
Trellis coding, automatic transfer rate negotiation, and
echo cancellation make this type of modem one of the
most popular and least expensive for general
communication.
V.32fast—The temporary name of a standard that the ITU
has not yet completed. When finished, it will probably
replace V.32bis with speeds up to 28,800 BPS. It is
anticipated that this will be the last analog protocol, even-
tually giving way to all-digital protocols as local telephone
systems become entirely digital.
V.34—The ratified version of V.32fast. It provides for data
speeds up to 128 KBPS with transmission rates as high as
3429 BAUD.
V.42—Defines a two-stage process of detection and
negotiation for LAPM error control.
V.42bis—Extends the V.42 standard to include data
{ compression.
Reference: Stephen J. Bigelow, Elecironics Now
15
RMG
ENTERPRISES
Supports
Sinclair/Timex Users!
2 Call or FAX for information on
prices and availability, hardware or
software
(=
You can send a legal and 50¢.
Request a price sheet or send $4 fora
GIANT IMPORT GIFT catalog; not
computer related
NEW
The Companion Disk for LarKen
$9.95 PP.
We also carry extensive PC shareware.
Send check or money order to:
RMG Enterprises
14784 S QUAIL GROVE CIR
OREGON CITY OR 97045
or call and use your VISA or MasterCard
503 655-7484 (aam-eem Tue-Sat) FAX 503 655-4116
| IT’S READY!
CCATS & RMG Enterprises
| Are Pleased To Announce
oo leg
=|
ZX-81 TS-1000 TS-2068 QL
Contents are exclusively those developed and
published by THE PLOTTER authors over
the past 12 years.
Price: $14.95 pp. per copy.
To Order:
Send vour check or money Order to:
RMG Enterprises
14784 S QUAIL GROVE CIR
OREGON CITY OR 97045
Call and use your VISA or MasterCard
503 655-7484 (8AM-6PM Tue-Sat) FAX 503 655-4116
100
110
112
116
120
122
130
132
140
142
144
146
148
150
152
154
199
200
202
206
208
210
212
220
222
224
225
226
230
232
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
ORG OGN
PIII IOI I HOR ak a
7* SERIAL PRINTER OUTPT
as PROGRAM
7* BOB BERCH 3/83
GIRO IR a a ak
JR 50 ; ONE CHAR ~- ZX
JR 360 ; PRINT Z¢$
JR 300 ; COPY
JR 200 ; LISTING
JR 210 ; CONT LIST
}TYPE A CHAR. - ASCII#**
LD A, (AD1)
JR 100
;TYPE A CHARACTER -ZX**
LD A, (AD1)
CALL /500
PUSH AF
CALL /100
POP AF
CP 13 ;TEST FOR C.R.
RET NZ
LD HL,4096; PAUSE FOR
DEC HL; C.R.
LD A,H
OR L
JR NZ,72
RET
LD A,13;ONE C.R.
JR 60
;
;MAIN OUTPUT ROUTINE
LD C,A
CALL HO2E7 ;SET - FAST
LD B,11;BIT COUNTER
JR 130
RRC C; TEST
JR C,132
OUT HFF,A; SPACE BIT
LD DE,HO190 ;TIME CONST
DEC DE ; FOR BAUD RATE
LD A,D
OR E
JR NZ,140
SET 7,C; SET STOP BITS
IN A,HFE; END BIT
DJINZ 120
RET
;
;TYPE A LISTING****x4Kx
CALL /90;ONE C.R.
LD HL,16509
LD (AD2),HL
CALL HOA2A ;
LD HL, (AD2)
LD BC,/90;SET RET ADDR
PUSH BC
CALL HO745
POP BC
LD(AD2),HL
LD HL, (DFCC)
DEC HL
CLS
7 OUT-LINE
7 FIND END
234
235
236
238
240
242
244
246
247
248
250
252
299
300
310
312
320
359
360
362
364
370
372
380
382
384
386
389
390
392
399
400
402
410
412
414
420
422
424
426
432
434
435
438
440
442
444
446
499
500
502
510
$12
515
517
520
522
524
530
532
534
535
536
538
539
540
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
SUB A
DEC HL
CP #; “ENGLISH POUND"
JR Z,235
INC HL
LD DE, (DFIL);
AND A; LENGTH
SBC HL,DE
PUSH HL
POP BC
CALL /400
JR 210
i
COMPUTE
7TYPE
fp COPY *xRKARKKARKK KR RAK
LD DE, (DFIL)
LD BC, 726
JR 400
f PRINT 2g tik tied terete
LD HL,/700;POINT TO
LD (CHAD) ,HL;DATA
CALL H111C;"GET-VARS"
RET C;EXIT IF NO Z$
INC HL;PICKUP LENGTH
LD C,#;IN BC
INC HL
LD B,#
INC HL;POINT TO
PUSH HL;STRING START
POP DE; IN DE
;TYPE A STRING*&ke KARE
}DE=START BC=LENGTH
LD A,B
OR C
RET Z
PUSH BC
PUSH DE
LD A, (DE)
CALL /54 ;TYPE CHAR
POP DE
POP BC
DEC BC
INC DE
CALL HOF46;TEST BREAK
JR C,400 ;KEY
RST 8;ERR REPORT
12; "D"
;
:CONV ZX TO ASCII¥**#*%
;IN + OUT THRU A REG.
CP 128
JR NC, 580
cP 118
JR 2,590
SUB 64
RET NC;CONTROL CHARS
ADD 64
CP 28
JR C,540
CP 38
JR C,538
ADD A,7 ;LETS
ADD A,20 ;NUMS+LETS
RET
AND A
542 REM JR NZ,550
543 REM LD A,32 ;SPACE
545 REM RET
550 REM CP 11
552 REM JR NC,560
553 REM PUSH AF ;GRAPHICS
554 REM LD A,35
556 REM CALL /110
557 REM POP AF
558 REM ADD A,48
559 REM RET
560 REM LD HL,/600 ;SPECIAL
561 REM SUB 11; CHARS
562 REM ADD A,L
563 REM LD L,A
564 REM JR NC,567
565 REM INC H
567 REM LD L,#
568 REM LD A,L
569 REM RET
580 REM SUB 128; INVERSE
582 REM CALL /500
584 REM ADD 32
586 REM RET
590 REM LD A,13 ;CARG. RET.
592 REM RET
599 REM ;
600 REM ;LOOKUP TABLE FOR CODES 11 TO 27
610 REM DATA 34,38,36,58,63,40,41,62,60,61,43,45,42,47,59,44,46
699 REM ;
700 REM DATA 63,13; "Zz$"
990 REM END
1000 LET OGN=32512
1002 LET DFCC=16398
1004 LET CHAD=16406
1006 LET AD1=16417
1008 LET AD2=16507
1010 LET DFIL=16396
QLZX
The Journal Covering Amateur Radio and Sinclair Computers
ZX80; Micro-Ace: ZX81; TS1000, 1500, and 2068; QL; Z88
Alex. F. Burr, K5XY, Publisher
2025 O'Donnell Drive
Las Cruces, NM 88001
HOW TO BUILD A LARKEN DOCK BOARD
Les Cottrell 108 River Heights Drive Cocoa, FL 32922-6630
To answer a request for schematics of the LarKen system | carefully examined the
boards and sketched up what | saw. Peeking under the chips turned out to be more
difficult than expected so to validate the dock board schematic two working samples were
made. The first was built on a discarded Zebra spectrum emulator board. (The chip had
been mounted on the original Larken dock board.) The Larken dock board can be used
with Aerco, Oliger or Ramex to add a second DOS.
To use one of the Zebra cartridge boards you must remove all chips, sockets and traces
except the fingers that go into the 2068. Use an X-Acto knife to remove the traces. This
is time consuming but the board will be a good fit in the cartridge slot. The locations
shown in Fig.2 is the layout of the original LarKen. Use a Dremel or small hand drill to
make the holes required for chip sockets and other components.
The second one was built on a plug-in perf board with .1 spacing edge-connector, Radio
Shack P/N 276-192. This part is not listed in the current catalog, but | have found 4
boards in 2 different stores this past week. The dimensions of the original Larken dock
board are shown in Fig. 2. This is easier to work with since drilling is not required.(The
board must be cut out, but the little cutting wheels on a Dremel make this a fun job.) One
word of warning here - check to see that the card fits and the cartridge door will close by
temporarily placing a chip and socket in the outermost location. (Lesson learned.) The
dock area is filled with this circuit so stick close to the locations shown. The transistor
should lie as flat as possible.
All chips should be socketed. The sockets can be held in place with a dab of glue. Use
30-gauge wire-wrap wire for the point to point wiring of the circuit. Follow the schematic
to make your connections. Start by soldering the wire to the edge connector and then
routing the wire to the first point, stripping away enough coating to make one loop around
the leg, soldering that point and moving to the next point. Radio Shack’s 276-1570 Wire-
wrapping tool has a neat little stripper hidden in the handle that you works well. This step
involves "worrying" the coating away by back and forth motions and should be done
carefully. You can also make the loop without any stripping and melt the coating and
make the solder joint at the same time. Perform a continuity check on a few joints to
verify your technique if you choose this method.
Note that A8 and AQ don’t go to the same pin numbers on the RAM and the EPROM.
They have a check mark on the schematic as a flag. On the units | made | socketed the
transistor, LED and the big diode using individual sockets call "springs" that a friend gave
me. These were especially useful for the large diode whose markings | did not recognize.
| found a diode that looked similar (a 1N4003) and tried it. | found one that worked on
the first try on unit one, but | had to try several on unit two.
19
Larken Cartridge Schematic
Figure 1
a
ww
wv
ww
ov
ou
um
ev
uw
lw
ov
ow
ev
ww
ov
sv
w
1 -BueyIO HE SL vy!
tose sop S}-OVSLZAH 297 0% PoMeUl 1 etait
eee VZzzzNe- 1D U0Le- 28
Said OM L8H on e'b- He
00S" LDH UM be Atl zv0"- 6D
fe Uy 01-98 att r= 29
%e OM VS" SE “20/0 A OF ‘4H 2Z~ 19
HSae
wh
Le. or
& 25 2
Peo rai
oe ie zo} ‘ww icf ow
oaun
You may need to "sharpen" the point on your soldering iron. Where the wires cross they
have a tendency to fuse together. Use a toothpick to separate them to avoid a “crossed
wires" problem. Before you install the chips you should verify that all the connections are
proper using an ohmmeter or continuity tester. After the circuit has been tested and
works properly carefully coat the wires with clear finger nail polish to coat any bare spots
and hold the wires apart.
It is imperative that you use the chips called out on the schematic. Due to differing
values required to activate "high" and “low" some substitutions with faster chips will not
work! (Lesson learned. Thanks to Nazir Pashtoon for explaining this.) HCT’s can be used
where HCTLS's are called for and HM6264P-15 works in the ram spot. The small diodes,
1N4148’s, should be at least as good as Radio Shack P/N 276-1122. Since the circuit
is sensitive “bargain diodes" should be avoided.
Resistors Rt, R3 and Ré4 are 1.8K which is not a standard value found at Radio Shack.
| bought a package of 100 elsewhere so | have spares! If anyone is serious enough to
start construction on a home-made dock board send me a SASE and | will send (3)
1.8K’s and a few of the little “springs”.
Figures 3 and 4 are a representation of the traces on the Larken board. They are
included for reference only. My drafting skills seem to fade with each birthday. If | can
become proficient with the CAD#3 program maybe a useful printed circuit layout could
come later
. 3.45 >|
a BS >|
ote
a
WO0AF SOTN?
ll
co S/-TSIISW
+
Lace
g 6
| bese a
8 ats .
Fieure 2
21
Zeer IHeEL C
el
WANTED/ FOR SALE/ OR HELP NEEDED
1) "Do you know of enyone that is using the Timex Disk Drive System (TOS)? I have a Seikosha
SP-1000AS serial printer. ] can get this to print using MSCRIPT and Vernon Tidwell serial patch
in text but not graphics. I do not have the owners manual for this $4.00 printer so I do not have the
print codes." HELP! A.E. Green, 4600 E, Hillsborough Ave, Tampa, FL 33610.
2) HELP WANTED..." My interestis with the TS1O00 computer.......(a) has anyone come up with
a battery pack to run the TS1000 away from a source of 110v AC power? My experiment with a
single 9 volt transistor radio battery did not work, perhaps several of these batteries connected in
parallel to increase the current available is the answer? (b) Along the same lines, can you suggest
asmall AC/DC portable TV that can be used in the absence of 110¥ AC power (brand, model ¥,
screen size, price) that makes a suitable monitor? [ also have a TS2040 printer but no power
supply, Can you suggest a source? I’m also looking for sources of TS1000 programs on cassette,
books, magazines, and user group newsletters, can youhelp?” Doug Wagoner, E. 4825 St,
Anthony Lane, Post Falls, Idaho 83854.
3) FOR SALE: (a) Fully assembled Hunter Board to provide extra non-volatile memory for the
2X81 or TS1000, for sale for $30. (b) Memopac 32K ram pack for the 2X81 or TS1000 or TS1500,
new in box with docs for sale for $20. (c) Two Beeper kits for the TS1000, ZX81 or TS1500 to give
sound for keypresses for sale for $10 each. (d) Brandnew A & J wafers for the TS1000 model,
clear, for sale for $2 each, minimum of 3 per order. Send check or cash to Eliad Wannum, c/o
UPDATE! Magazine, P.O. Box 1095, Peru, IN 46970.
4) Does anyone still use the Zebra disk system? | just came by two. Les Cottrell, 108 River
Heights Drive, Cocoa, FL 32922-6630,
5) FOR SALE: | just got anew IDE drive set up for my QL, so am now looking to sell my
Falkenberg Hard Drive System. It includes the drive interface board, MFM Omti Controller, either
a bus driver beard for a Gold Card or one for a Trump Card (let me know which you will be using
it with) an MFM cable and a hard drive case with power supply. It all works great; itis just that I
only have so much room, and need to make room for new stuff, while making sure that someone
can get gocd use out of my used, I am selling ALL OF THIS for the low price of $225. It will easily
work on any MFM hard drive from 20 upto 416 MEG of memory! This is a great deal for
someone. Send me either a money order, or I can ship it C.0,D. Eliad Wannum, c/o UPDATE!
Magazine, P.O. Box 1095, Peru, IN 46970.
AS ALWAYS ADS OF THE SORT LISTED ABOVE ARE
FREE FOR SUBSCRIBERS TO UPDATE! MAGAZINE.
THESE ARE FOR INDIVIDUAL USERS, NOT FOR DEALERS
TO USE TO ADVERTISE THEIR COMPANIES (FOR THOSE
PLEASE MAKE ARRANGEMENTS FOR AN AD).
25
REVIEW OF Chris Boutal's GENEALOGIST 3
Page |
by Hugh Howie
In a group of people gathered around the
glowing embers of a fire of a winter
evening, the talk can touch on many
things, and invariably someone will say
something which prompts another to say
remember-~~" and the talk will often
turn to reminiscences of a family member,
relation, or acquaintance, who did this,
that or something clse, then the tales
start to flow as to who what where and
when. And that is where a programme such
as GENEALOGIST 3 comes into its own.
This is a programme by Chris Boutal of
the United Kingdom. Great Britain.
England, Scotland, Ireland, Wales, cali
it what you wish. The lands of history
and legend. The lands of brave Knights
and Pair Damsels. The lands from where
so many of us in Canada and the USA came.
The land which so many still call "HOME"
But do we really know where we came from?
We all know some of our ancestors, but
can we put it together in some order and
sequence, with the correct dates and
times and facts? Who married who, and
who begat who?
GENEALOGIST 3 is the programme to do this
for you. All you have to do is provide
the data and enter it, and the programme
takes over and does all the work for you.
Enter names and dates and relationships,
and before you realise what has happened
you will be able to see a "Tree" grow
from almost nothing.
The system is very comprehensive. All
your family records, Births, Deaths,
Marriages, Burials are stored, and can be
displayed on screen, or sent to the
printer in many different formats to suit
your specific requirements.
GENEALOGIST 3 will keep track of census
returns and certificates, and any other
detail you have in mind. It has very
complete search and indexing facilities.
You want to know your ancestors? your
pedigree? Who are the heads of various
Khere you
family groups? Who you are?
came from? No, it will not tell you
where you are going, that's for you to
solve, But T can vouch for this, it will
make you want to KNOW the past! You will
spend so much time in research into your
family background, you will leave a lot
of things unattended.
From the various Family Groups which you
assemble as you enter data, a tree can be
generated, and displayed on screen or
paper for your perusal and reference.
You can make amendments to the tree as
you look at it, they can be made here or
in the Family Group format. The Tree can
be sent to the printer and this will give
you a wonderful display of all the
Ministers and Rogues and Vagabonds and
Highwaymen, who are part of your
heritage.
GENEALOGIST 3 is for the Pointer
Environment, but can also be operated
very efficiently from the keyboard if you
don't have a mouse. Selection of
facility can be made by using the arrow
keys, or by letter selection from the
menus, or mouse. Very versatile.
I have had Genealogist version 1 and
version 2. When Version 3 came along T
debated whether I needed it, and after a
lot of poking around in the recessed area
of the wallet - I came up with a few
moths and the necessary moolah to
purchase version 3, and T have not
regretted it for one instant.
It would appear that when so much
keyboard work is required, that the
constant work of moving a hand from mouse
to keyboard and back again, would be
rather tiresome, but this I have found
not to be the case. When you are
entering data, you will find that the
arrow keys are fine and dandy for moving
around. But when you start to RESEARCH
the data, looking for cross-references
etc., does that mouse ever scoot around
the screen! Definitely - the mouse is a
great advantage ~ but don't forget, if
you have no mouse the programme still
provides all the facilities required, and
at a goodly speed also.
REVIEW OF Chris Boutal's GENEALOGIST 3
Page 2
by Hugh Howie
Speed, now that is something else to be
discussed. The full programme requires
at least 512 Kb memory, so that lets out
Microdrive and bare bones QL. With Trump
Card, you have the extra speed, and also
the extra memory required. With the Gold
Card which is what I use, I find that the
programme is fast enough for me. With
the Super Gold Card? T am afraid you
might burn up the sereen with the extra
speed the Super is reputed to have,
But then again, we have an author who
thinks of those with less than the
epitome of QL's. We have an author who
thinks of the person who only has the
basic 128k machine (are there any left?)
There must be a few somewhere as Chris
has provided a Budget version of
GENEALOGIST for those people. And this
Budget version is on MDV or Disk! You
want — you got!
Now say you have been working on an
Archive based family, and having problems
transferring it to this new system, then
for a modest fee (very modest) Chris will
convert that to GENEALOGIST for you.
For those who have been using one of the
earlier versions of GENEALOGIST, the data
made with those versions will not work
with Version 3, but once again, all is
provided for, there is a conversion
programme provided. And it really does
work, as I used it myself.
In the manual there is a tutorial family
for you to type in, and after following
the tutorial, you will have no problem in
getting down to your own task. The
manual is very well written indeed, with
easy and clear instructions as to what to
do, and when. There is an excellent
"Command Reference" Section, where you
can see what each command does, and where
it is called from. Printed on pink paper
in nice clear distinct black type, it may
be thought that the pink paper could be a
bit hard to read, but this is not the
case, the manual is easy to read, easy to
follow, and of great precision.
The programne will take all the data you
like to enter, from the heads of
families, which is all that is really
required, but also all your brothers and
sisters and aunts and cousins. Just
about anything you want to put in.
If you want a screen or paper copy of a
family tree from the start, or from a
midway point, to a midway point - that is
what is available.
Let me say here and now, when T say you
can have a copy, I mean that you can have
a copy ON SCREEN or on PRINTER, so those
terms are synonymous. When using the
printer the option of Normal or Condensed
type is available.
GENEALOGIST 3 will provide a geographical
map of occurrences. This is based on the
grid system in use in British road maps,
and when IT suggested to Chris that the
programme was reaching the far corners of
the earth where that grid system might
not be in use, and that a Latitude &
Longitude option be made available, Chris
agreed and said that he would look into
this, and perhaps introduce it at a later
date. But don't let this stop you from
acquiring the programme. This is an
enhancement that T do not require, and T
wonder how many really do. I only
introduce those comments to show how
Chris has tried to provide everyone with
what anyone would like. This "map"
facility, will even tell you the distance
between two points when using the grid
system.
T almost forgot to tell you that it will
even provide pictures to go with a Family
group. Say you a have a picture of your
old Uncle Ned and Aunt Sarah at Xmas,
you do have that picture? Then by use of
a Video camera and a digitiser, you can
save that picture on disk, and later
project that picture on screen. There
are even a couple pictures provided as an
I can see this programme taking
Do you
example,
the place of slide shows.
remember them?
For those interested in Kings and Queens
of Britain, a Royal Tree is provided,
just so you see what a tree looks like.
REVIEW OF Chris Boutal's GENEALOGIST 3
Page 3
by Hugh Howie
Do you want to know who is related to
whom, and what that relationship is? You
got it! D'ya really need to know that
"Jo Blo is the second cousin twice
removed from Jenny Jewell"? Or that "Dan
is the great~great-great~grandfather of
Dave? The cross-reference is there.
For those occasions when the spelling of
a surname has been changed over the
years, that also has been taken care of,
as multiple spellings are recognised.
The user is even allowed to make up a
customised Research Report to suit ones
own requirements, as before making the
report, you are allowed to select the
details (from a list of thirteen) you
wish to appear in the report, but not
only that, you are permitted to select
whether the report should appear in row
or column format.
There is even a "Verify" mode provided.
Say you enter the birth of a parent as
1900 and the son as being born in 1905,
this "verify" will tell you "40 and 35
have an unlikely generation gap". Plus
many other things. (The programme gives
each family member its own unique number)
Much of the data is available for export
to the Psion suite of programmes. This
is to enable you to do further processing
that GENEALOGIST can’t do. For example
the Pamily Network and Research reports
can be exported to Archive. Tree data
can go to Abacus. Place/Time data can be
exported to Easel. Those same files can
be imported back into Genealogist from
Psion.
The programme comes set up for a red
screen with white lettering, but if you
don't like that you are provided with a
facility to change that to white on black
or almost any other combination you can
think of. You make your own colour
combination choice for any window.
As I am also writing a lot stuff dealing
with such things as movements,
occupations, anecdotes, family histories
and a whole lot of interesting, and some
not so interesting facts, that kind of
stuff, I have GENEALOGIST and
text®7 plus# running together, this way T
can quickly switch from one to the other
as T progress. In fact it is possible to
have two TREES going at the same time -
but watch your memory!
Now to a neat little thing. As the
programme starts, there is a little
square clock that comes onto the middle
of the screen, with real hands! and it
keeps popping up as you change from one
facility to another - just to remind you
of the passage of time! Neat neat neat.
You don't want to keep a record of your
family? Then use this programme to keep
track of those cats and dogs and horses
you breed, it can be used for just about
any record of ancestry or breeding you
wish.
Now where is this programme available?
Why, from my old friend:-
DILWYN JONES COMPUTING
41 BRO EMRYS, TAL-Y-BONT, BANGOR
GYNEDD, UNITED KINGDOM, LL57 3YT
The last price I have is from the
December 1993 Price List but I would
advise you to check first, I don't think
the price has gone up in that time, but
then the time between writing and
publication is not always predictable.
Genealogist 3 (Pointer) £60.00 Disk only
Genealogist 2 £30.00 Disk only
Genealogist 1 £19.50 Disk only
Genealogist Budget £12.00 MDV/Disk
But if you really are serious about this,
I would recommend the version 3 (Pointer)
One final thing which I consider to be
very important, what happens when you
have a problem? Why you write to Chris
Boutal and the answer is on your desk
before you know it. Service is terrific.
But then if you have a programme as
terrific as this, then you would also
expect the service to be terrific — and
it is.
940910
26
QLAMBer UPDATE
by Al Feng
By the time you read this, the latest "variation" of the QLAMBer
program should have been out-and-about for several months.
The good news is that variation 2x001 can automatically identify
the "_doc" extension of a standard Quill/QLWP file, and produce a
more easily read HARDCOPY than before. The HARDCOPY output will
be something like this, but full width, and in the font to which
your printer is set:
vrmlgdf0
&
H
page nnn
followed by your document ... lacking the effects of control co
des; but, having paragraph breaks, and a Form_Feed at the end of
the meaningful text.
This does not replace printing from within Quill/QLWP. It is me
ant to make the program's HARDCOPY function more useful.
Note that there is no word-wrap, per se. Words are split if they
are incomplete before the end of a line, and are finished after
the carriage return.
Program LISTings & _lis/_txt files should be SPooLed within
QLAMBer from a file SAVEd/COPied to RAM1_ (for example).
Adjust DATASPACE Please
If you happen to get an "adjust DATASPACE please" message when
trying to use QLAMBer it probably means that your QL has a GOLD
CARD (or, faster?) with MINERVA 1.97 (or, higher?) and have
implemented a "misbehaving" TURBO TOOLKIT (or, the like -- for
example v3.20) along with pre-emptive TK2_ calls (e.g., SDP_KEY),
and/or using a statement within a long SuperBASIC BOOT. WHEW!
The main culprit is apparently the TURBO TOOLKIT in tandem with
the later MINERVA code(s). I have to find my MINERVA manual/disk
to verify this, but I was told that there is a substitute TURBO
TOOLKIT. A temporary fix is to use an older TURBO TOOLKIT (such
as v2.05), or to simply "EXEC_W flpl_QLAMBer" from the command
prompt.
Sorry for this inconvenience. As many of you may know, the
MINERVA ROM code gets more and more finicky (i.e., less sloppy
forgiving) as the version number gets higher.
HAPPY TRAILS, AND COMPUTING, TO YOU
27
7
NUG OL Public Domain Library
ABAtra_exp Psion’s Abacus file format explained SAVER_LZH Pointer screen saver. Set up as a hotkey
ANSISR_zip |_ Strips ANSI codes, uses TK2 and QLib SPECKE zip __| 4 graphic files of the Spectrum keyboard
BASCON_zip | SB Extension for Linking in QJump |_SPECTATR_aip_| Spectator v1.00 - A Spectrum emulator
L | Configuration Blocks | Unzip30 | v3.0 The Latest One.
| Co&dl_zip C68 4.12 disk 1. ‘C” Main systemdisk | | | Needed For These Files
H The "STANDARD for *C’" | 7 UNZIP9_ exe | Unzip program V 0.96. by Jan
C68d2_ zp | C68 4.12 disk 2.°C* , Extras ete. | Bredenbeek, EXE form (early version)
| C68d3_zip C68 4.12 disk 3.‘C” Master doc disk-C68 VERS_zp Provides info about other QPTR progs.
| CFG zip "Place QPTR config. blocks into ‘C' VIEW _LZH Pointer environment utility
H CHECK _zip |_SB ext. checks for non-numeric INPUT XCHANG_azp Psion’s Xchange v3.90 now PD (Quill,
| CIRCUIL zip Misc. circuit diagrams and pin-outs I | Archive, Abacus, Easel in one package)
CRITMS BAS _| Critical Mass Game from 88QL World | | XPR210 zip | Latest file transfer protocols for EM v4.0
DISKS _txt File on using Teac 2.88Mb disk drives | [XPRLIB zip XPR library for QEM v3.5, for 3.5 & 3.6
DIEP_zip DeskJet printer utility, prints envelopes 21P22_zip Zip/Unzip version 22 (revised)
DIWDEM_zip Demo copies; DiscCOVER, MULTI- ZIP30_exe Zip v3.0 (the \“ES\” version) (re revised)
DiscOVER, TexTIDY & FLPClone j Zip txt Revised Docs on how to use Zip/Unzip
EMAIL, txt INTERNET, addresses of other QL’ers | | ZIPUTIL_zip Zip Utilities v3.0. Dealing with zip files
FILEIN_ zip Pointer environment utility ZXTRICA_zip | Xtricatorvl.10 ZX-81 emulator |
| FNTRC_zip Source files (SB and Metacomco | Spectrum/QL
H Assembler) FontEditor v.2.3 i
Fimo Zip aL embieD F wal FidoNet Echo Mail : Related Files for the PC/Clone
i |_ messages, 8 merged files so far. | LENV_bin ; Code compatible with QXL and SMSQ
[FONTED ) zip ' FontEditor v.2.3 for the Sinclair QL | | JPP_ap Excellent Spectrum Emulator for 386SX
HDRRST_BAS _| Restores file header of transferred files L : or greater PC
HISTDV zip _| Last line recall history device Make C zip | C68 files MAKE & CPC for the QXL
IBMDSK zip _| Access IBM disks. TK 2 and 3.5 “drives QDIR_zip Looks at QL disk DIRs on a PC
LHQ zip "[LHQ V1.0, File archiver and extractor QUSCR._zip PC program to view screen files, can
MAIL zip Mail list program for ARCHIVE (convert to GIF
minnie_zip File detailing the Minerva ROM 1.93+ QLTOOL ap j Lets a PC look/examine QL disk
MODPSI zip __| Mods for the PSION suite of software QxLfint zip | For the QXL card. Converts a disk to
QLGIF_zip | Code/decode GIF. By Carlos Delhez 1993 - DOS format (same as FORMAT?) |
(QPACER ap | QPac2 8001 Boot Generator v1.1 ZROV201A_zip 17a ot Spenam Emulator V2.01 by
Point_ziy i as QL FidoNet Echo Point ss
Paltcoes ap Coeateg LL DOWNPOPUP mecca | 0V2018, ap LATEX and POSTSCRIPT DOC fles for |
QED zip | QED 1.01 A general purpose editor v2.01 780 Spectrum ,
| QEM zip First? version of QEM For the MAC
QEM040doc_Zi Doc files for QEM v4.0 CP2MC1 zip Converts text/Quill files to the MAC.
QEM24_ zp | QEM v2.4 early version of QEM
QEM35U_rip__| QEM v3.5 upgrade QEM 3.0+ to 3.5
QEM36U rip | QEM v3.6 upgrade fiom v3.5 Donated to Tf ‘S NUG
| QEM40_zip QEM v4.0 latest version of QEM?
| QEMV32_zp | QEM v3.2. Excellent terminal program _, by Paul Ke olmgren
LHD | ing uj IBM
i QED _2e anemone ne a OL. pbs H Files were downloaded from various BBS 's
QLIBRT_ap ; QLiberator runtimes version 3.36 j
QUSPIT_zip ZM-1 Spectrum Emulator & demo |
| QSI_zip | Determines speed, QXL, Gold Card Set of 9 5.25” disks. All for $9.00
| QUADRI zip | Quadratic Equation Plotter Order from:
| Quantal/2_zip eee BBS Messe BOE Tce | John Donaldson
Quilt “exp [ Psion’s QUILL file format explained | 835 Foxwood Cir
(RDS _zip {3 SuperBasic progs rand dot stereograms +
| RELYQL_txt__| Text describing modifications to the QL_| Geneva IL 60134-1631
' RESCUE zip | Floppy Disk Rescue 8, String Search ! 708 232-6147
Ruleta_ap ; Roulette game i
26
810-254-9878
24 hours a day, 300°1200/72400 baud
(a new high speed modem, up to 14400 baud will be online soon)
QBox-USA is a BBS set up by GL enthusiasts For QL enthusiasts.
The sytem runs entirely on a Sinclair QL. We maintain a link (Fidonet>
with European BBS's that carry QL related message areas. With QBox~USA
North American QL users can keep in touch with our Fellow QL users in Europe
and keep up with the latest developments For the QL and QDOS.
We are currently carrying the Following message areas:
INTERNATIONAL QL, MINERVA, QUANTA and QBOX.
There are also File areas that contain many programs available For download.
Just a few of the Files available are: IPI, QFAX, 2Zip/Unzip, QLTerm, QLGIF
and many more! There is no charge to use QBox-USA other than normal phone
call charges. Please give QBox-USA a try!
We look Forward to your call!
—_—
produced using Page Restener 7 |
HESEEREEE ERTS ER ARE ESSE SESH ESE ESET SEER EERE SEE SETS EEEE SRE SESE SES ESE ESEEE
COMPUTER CLASSICS
*#* FOR SALE *#*
COMPUTER CLASSICS
RT 1, BOX 117
CABOOL, MO 65689
IBM XT COMPUTER $200 +shipping
Includes 10 MEG hard drive, 640K
RAM, 360K floppy, serial port and
parallel port, monochrome monitor,
and keyboard.
Repair Service for America’s
Favorite Home Computers
and their accessories
*
*
*
*
*
*
*
*
*
*
*
IBM 286 COMPUTER $350 +shipping *
ADAM ATARI COMMODORE Includes 20 MEG hard drive, 1MB *
RAM, 1.2MB & 1.44MB floppies, *
serial & parallel ports, keyboard, *
*
*
*
*
*
+
*
*
*
*
*
*
and monochrome monitor.
IBM OSBORNE SINCLAIR
TIMEX TI TRS-80
ee ee ey
QUAD DENSITY 5 1/4 in. (720K)
half height floppy drives
$25 each or 10 for $150
BUY - SELL - TRADE - UPGRADE
Write for prices
SASE appreciated IBM HARD DRIVES, CONTROLLERS,
and RGB COLOR MONITORS
Ph. (417) 469 - 4571 Write for prices
*
*
*
*
*
+
=
+
*
*
*
*
*
*
*
s
*
*
*
*
*
*
*
*
'
*
+
SRST T ESET HASSE EKE SES TEST ETH T ESS SAS SESE SESH LESS SSS KE SKESSAH EASA ELE TED
CABLE COLUMN
By Bill Cable
ARCHIVE SERIES
PART 18 : FormEd - A FORM EDITOR AND PRINTER FOR
ARCHIVE DATABASES (2nd and final part)
FormEd as listed last time worked well for displays but the printing
part had not yet been completed This time we will list the complete
program including what was listed last time This has been a rather
involved project but | am pleased with the result. It can nicely display
and print any ARCHIVE Database in many different and useful ways
The user interface is easy to use and different print fonts are
supported (Bold, Condensed, Italic, Underline, Double Wide). Epson
print controls are used. If they don't work for you get out your printer
manual and alter procedure 'set_fonts’ so they do. The procedures
proc closey:!$
close {$
endproc
proc close_all
while 1 close endwhile
endproc
proc formed
rem Written by Bill Cable 6/94 and released to public domain
error form_check. if ermum()formed1 else :formed3 endif
endproc
proc formed1
mode O'setup: error close_all:set_fonts
listed here need to be merged with the group3 procedures finished in
Part 14 of this series. Notice that procedure ‘close_all’ in group3 is
incorrect, The one listed here is correct Correct it in group3
procedures or it will replace the correct one when you merge the
group3 procedures in. Those wishing to skip all the work send me a
disk and retum postage and | will send you a copy of Formed.
Forms can be designed on screen for any ARCHIVE database for
browsing and printing and saved for later use. Its primary purpose
will be for printing out the forms or reports to your printer such as
address labels from an address database or financial summaries
from a financial database. It is slow at least if you don’t have a Gold
Card or better but handy Get into the ARCHIVE editor and start at it
When done merge the group3_prg procedures and save as ‘formed’
To run simply load into ARCHIVE and type - formed<ENTER>. Play
to feam allits features and uses. Itis quite flexible
fet h$="FormEd - A Form Editor, Creater, and Printer for ARCHIVE Databases"
heady;h$: spoolon screen :form_instruct: spooloff
yom,21,"Print these instructions" if ans$="y"
Iprint hS: Iprint tab 55,"Bill Cable 9/94”: Iprint :form_instruct: endif
device;21
if ans$="": error close.
error looky,fdS+fn$+"1","11"
if ermum(): if ermum()<>100:erry:23,"accessing "+fd$+fn$+"1": endif
yom;23,"Create form databases on "+fd$+" now": if ans$
else : error form_create: if ermum() eny:23."making “+fd$+fn$+"1"
formed: retum: endif: endif
fooky:fdS+fn$+"1"."f1" endif
error looky;fd$+fn$+"2","12": if ermum():ery:23,"accessing "+id$+in$+'2"
acky.23,"You must fix":formed: retum endif :formed2
endproc
proc formed2
heady,"FormEd - Choosing a Form”. use "{1": if count()>0
yom;4,"Print list of currently defined forms in "+fd$+" Form File now"
y"form_print1: endif . endif . error closey;"s"
: while len(ans$)<1 or len(ans$)>8.
jame of form [1-8 characters or <ENTER>=quit]"
" error close_all: mode 1: stop : endif endwhile
let form$=ans$: use "f1" locate form$: if form_name$<>form$
yom.8,"Form "+form$+" not defined. Add it now"
if ans$="n":formed2: retum
ifans$:
“Location of form databases (form_fm1,form_fm2) eXit to stop"
il: mode 1: stop : endif : let fd$=ans$: let fn$="form_fm"
“formed: retum
else form_new: close "f1" looky:faS+in$+''1",“f1"" locate forms: endif: endif
let sd$=dbf_loc$: let sn$=dbf_name$: fet ans=1: while ans and sn$<>""
error looky;sd$+sn$,"s" let ans=ermum()
if ermum():erry,10,"Problem accessing "+sd$+sn$
yom; 11,"Change device or name": if ans$="n":formed2. retum : endif
“Database” let sd$=ans$
yor, 20. "Print list of fields of "+sd$+sn$+" used in "+form$+" now"
if ans$="y"form_print2: endif -formed3
encproc
proc formed3
mode 0: let fig=1 form_dispiay
while 1° print at 0,3,upper(form$)," form using “.sd$+sn$
latabase name (with extension)" sn$: let snS=ans$: endif endwhile
print “ with ".count("s’);" selected”; tab 57;
key_choice,23," FORMED MENU "."","Edit Print Browse Select/order eXit',"epbsx"
if ans$="x":yom;23,"Work with another form": if ans$="y":formed2: retum
else : error close_all: mode 1: stop: endif
else : if ans$="e"-form_edit;1,high,1,1,wide,1:form_display
else : ifans$="p"-form_print
else : if ans$="b" form_browse
else : if ans$="s". use “s": mode 1. cls ; print
print "FormEd is halted. Type desired ARCHIVE Select, Order, or Reset Command"
print "Then type : formed<ENTER? to restart” let flg=0:
endif : endif: endif : endif: endif : endwhile
endproc
proc form_browse
local a$,f3,i: while 1: use “s"
key_choice;23," BROWSE ",","Next Back Scan Rec# Find More Print exit","nbsrfmpx"
use “f1": retum : endif : let aS=ans$
if a$="n": next: eise : if a$="b": back
else : ifa$="s".msg;23,"Scan by Browsing through 10 records"
let i= 1: while i<10 and not eof(): next :form_fvshow1;"": use “s”: let i=i+1: endwhile : next
else : if a$="r':inpy;23,"Move to record {0-"+str(count("s")-1,2,0)+"]"
position vai(ans$): else : if a$="f":inpy:23,"Enter text to find": let S$=ans$
msg;23,"finding “+f+"": find
else : if aS="m":msg;23,"more finding "+f$+"": continue
if not found{) acky;23,"More “+f$+" not found": endif
else : if a$="p" form_print
endif : endif . endif : endif: endif : endif : endif :form_fvshow1;™: endwhile
endproc
proc form_check
use “s"
endproc
proc form_color;!,i$
ice,|,""," for “+i$+" color’,"[Black, Red, Green, White]","brgw"
let ans$="Black - 1": else : if ans$="r": let ans$="Red_ - 3"
else : if ans$="g" let ans$="Green - 5"
eise ; let ans$="White - 7". endif : endif : endif
endproc
proc form_create
msg;23,"creating form file 1 : “+fd$+fn$+"1"
create fd$+in$+"1" logical "f1"
form_name$
form_desc$
form_paperS
form_ink$
form_height
form_width
form_line
form_text$
form_font$
dbf_locs
dbf_name$
dbf_desc$
endcreate
order form_name$;a,form_line;a: close fi"
msg;23,"creating form file 2 : "+fd$+fn$+"2"
create fd$+fn$+"2" logical “f2"
field_form$
field_line
field_column
field_name$
field_number
field_start
field_width
field_formatS
field_join
field_joinS
endcreate
order field_form$;a, field_line;a,fietd_column;a: close "{2"
endproc
Proc form_display
use "fi": locate form$: let wide=form_width: let high=form_height
let tos=int((21-high)/2): let cos=int((79-wide)/2)
let fp=val(form_paper$(9)): let fi=val(form_ink$(9))
if fp=1: let dp=3: let di=7: else : let dp=1: let di=7: endif
paper dp: ink di: cls : fet k=form_width
let i=1: while ishigh+1: locate form$,i
print at i+los,1+co8; paper fp; ink fiform_textS,
let iti+ 4: endwhile -form_fvshow1,""
endproc
proc form_edit;si,n!,al,sc,nc,ac
local IIc i$,ij,«i3.
close “f1": open fd$+fn$+"1" logical "{1" locate form$.1
close "f2"; open fd$+fn$+"2" logical "{2": locate form$,1,1: use “f1"
if sl>22: let sl=22: endif: if nl>22-sl: let nt=22-s!: endif
if sc>79: let sc=79: endif : ifnc>79-sc: let nc=79-sc: endif
let n=si+nI-1: if al<s! or al>ni: let al=s!; endif
let nc=sctnc-1: if ac<sc or ac>ne: let ac=sc: endif
let li=al+los: let lc=act+cos
while 1: use “f1": locate form$,al
print at 23,1;"EDIT FORM - Move and type text, <CTRL>1 Field, <CTRL>2 Font, <CTRL>0 Exit",
print tab 80; at 0,68;"[".al:",",ac,"] (":form_font$(ac to ac):")"; tab 79,
print paper fp; ink fi, at al+los,actcos,chr(14);
let iS=getkey(): let =cade(i$)
if i=144: close "f1": close "f2":looky;fd$+fn$+"1","f1"
looky:fd$+fn$+"2","{2": use "f1": retum : endif
if i<>145 and i<>146
if =10 or i= 11: let j=3: else : if =12 or =13: let j=10
else : let j=1: endif: endif
if i=2 or i=10: let al=al-: if al<si: let alent: endif
alse : if i=3 or i=11: let I+j: if al>nl: tet al=si: endif
else: if =4 or i=12: let c+: if ac>nc: let ac=se: endif
else ‘5 or i= 13: let ac=ac-: if ac<sc: let ac=nc: endif
endif: endif : endif: endif
if >31 and i<127: print paper fp, ink fi, at altlos,ac+cos;i$,
locate form$,al: let [$="*"+form_text5+"*"
let [$=]$(1 to ac)+i$+j$(ac+2 to len($))
let form_text$=j$(2 to ten(j$)-1): update
let ac=act1: if ac>nc: let ac=sc: endif: endif
if Il<>al or Ic<>ac: let ll=al: let Ic=ac: endif
else : if =146
key_choice:23," SET FONT".."Normal Bold Itallic Underline Wide Condensed”,"nbiuwc"
let jS=upper(ans$):defy.23,"Font Width [1 to "+str(nc-ac+1 ,2,0)+']'str(nc-ac+1,2,0)
let ans=val(ans$): if ans<1 or ans>nc-ac+1: let ans=1: endif
let i$=form_font$: if ac>1: let k$=i$(1 to ac-1): else ; let kS="": endif
let form_font$=k$+rept($,ans)
let i=len(form_fontS)
if i<len(i$): let form_font$=form_font$+i$(i+1 to nc)
endif : update : else
key_choice;23,”" FIELD EDIT",""","Add Remove Show List eXit","arsix"
if sn$<>"" and ans$<>"x": if ans! ":form_fadd,al,ac,ne
else : if ans$="r": use "f2": locate form$,al,ac
if field_form$=form$ and field_line=al and field_column=:
yorn:23,"Remove "+field_name$+" from specifed posi if ans$="y"
print at al+los,actcos; paper fp, ink firept(" " field_width);: delete : endif
else ‘acky;23,"No field value starts at current cursor position”. endif
else : if ans$="I":yorn;23,"Listout fields on form to printer now"
if ans$="y".form_print3: endif
else :form_fvshow1 ;chr(5):acky:23,"Showing field widths by underline"
endif: endif: endif: endif: endif _ endif : endwhile
endproc
proc form_fadd;al,ac,nc
use "f2": let fleld_form$=form$:form_fpick
let field_name$=fieldn(field_number,"s")
let field_line=al: let field_column=ac
defy;23,"Start at field charcter’,"1". let ans=val(ans$)
if ans<1 or ans>255: let ans=1. endif: let field_start=ans
defy,23,"Field width" str(nc-ac+ 12,0): let ans=val(ans$)
if ans<1 or ans>nc-ac+1: let ans=nc-ac: endif: let field_width=ans
if fieldt(field_number,"s")
key_choice,23,"","Field format’,"Normal Upper Lower’,"nul”
else key_choice,23,","Field format’,"General Decimal(2) Integer',“gdi"
endif. let fieid_format$=upper(ans$)
yom:23 "Wil this field be joined with a field following it’
i let field_join=1
inpy.23,"Joining symbol(s) (ie.'' or’,’ or '/’,<ENTER> = none)"
fet field_join$=ans$. else : let field_join=0: let field_join$="": endif
yom,23,"Add "+field_name$+” now”: if ans$="y": append
if field_join print at 22,1;"Joins “:field_name$; tab 79,
form_fadd,al.ac,nc: return : endif
locate formS,al,ac:form_fvshow2;":form_fvshow3;"": endif ‘liny;22: use ‘f1"
endproc
proc form_fpick
while 1 inpy,23,"Field of interest [0-"+str(numfid("s")-1,2,0)+"]"
let ans=val(ans$): if ans<0 or ans>numfid("s")-1: let ans=0: endif
let field_number=ans:yom:23 fieldn(ans,"s")
if ans$="y" retum : endif : endwhile
endproc
proc form_fvshow4 ;u$
print at 0,57,"at Rec# ";recnum("s"), tab 79;
use “f2 locate form$: while not eof{) and field_form$=form$.
form_fvshow2,"":form_fvshow3,u$: next: endwhile : use “f1"
endproc
proc form_fyshow2;!$
focal i,j,k,!,c,|s,fs,fw: let =field_line: let c=field_column
let ans=field_number. if fieldt(ans,"s")
let ans$=fieldv(ans,"s"): if field_format$="U": let ans$=upper(ans$)
else : if field_formats: let ans$=lower({ans$): endif : endif
else : if field_format$="G": let ans$=str(fieldv(ans,"s"),4,0)
else: if field_format$="D": let ans$=str(fieldvians,"s”),0,2)
else ; let ans$=str(fieldv(ans,"s’),2,0): endif : endif : endif
let Is=len(ans$): let fs=field_start: let fw=field_widtn
if fs>1: if Is<fs: let ans$="": else : let ans$=ans$(fs to Is): endif : endif
if len(ans$)>fw: let ans$=ans$(1 to fw): endif : let ans$=I$+ans$
if field_join let ans$=ans$+field_join$. next
if =field_line and c=field_column and not eof():form_fvshow2;ans$: retum
else back endif: endif
if len(ans$)>wide: let ans$=ans$(1 to wide): endif
endproc
proc form_fvshow3;u$.
local I,c,w,s: let l=field_line: let c=field_column: let w=field_width
if len(ans$)>w. let ans$=ans$(1 to w): endif
print at I+los,c+cos; paper fp; ink fi;u$;ans$, tab cos+w+c;u$
endproc
proc form_instruct
Iprint" 1. This program allows you to create forms that incorporate your own"
Iprint” databases. Good for printing them in a structured way or as labels."
Iprint " 2. Two databases (form_fm1 & fotm_fm2) hold form information. If they”
iprint" don't exist already the will be created. Please back them up.”
Iprint" 3. The database you use on a form will be accessed for read only. Using"
iprint” the form display you can browse or print it as selected/ordered.”
Iprint “ 4, Each form has an identifying name (1-8 characters) and is saved for"
Iprint" later access. The form is Edited on screen by typing text at the”
Iprint" cusor position with curosr coordinates shown in [] in upper right."
Iprint "5. <CTRL>1 when editing allows Adding and Removing Fields at cursor."
Iprint “ 6. <CTRL>2 when editing to define Print Fonts for areas on form. Upper"
Iprint" night of screen show Font at cursor. Normal, Bold, Itallic, Underline"
Iprint" Wide,and Condensed possible. For non Epson change procedure set_fonts.”
Iprint" 7. To do the ordering and selecting of your database the program is"
iprint" halted so you can type in the Select, Order, or Reset command at"
Iprint" the ARCHIVE prompt >’ and then restarted by : formed<ENTER>."
endproc
proc form_new
close "f1". error openy;fd$+fn$+"1",'f1"
Jet form_in let form_text$="": let form_font$:
while 1:heady;"Adding New form : "+form$: let form_name$=form$
print at 3.1,"Form information"
inpy.5,"Form description”: let form_desc$=ans$
form_color,6,"Form paper’ let form_paper$=ans$
print at 6,0," Form paper color : ";ans$; tab 80;: let form_ink$=ans$
while form_paper$=form_ink$:form_color;7,"Form ink"
let form_ink$=ans$: endwhile
print at 7,0;" Form ink color ins$; tab 60;
defy;8,"Form width (10-78)","78": let ans=val(ans$)
if ans<10: let ans=10: endif: if ans>78: let ans=78: endif
let form_width=ans: print at 8,0:" Form width : “ans; tab 80
defy,9,"Form height (1-20)","20" let ans=val(ans$)
if ans<1. let ans=1: endif : if ans>20: let ans=20: endif
let form_height=ans: print at 9,0," Form Height: “.ans, tab 80.
ise information from a database on this form"
y": print at 12,1;"Database information”; tab 80;
device; 14,"Location of database to be used in form"
let dbf_loc$=ans$: print at 14,0;" Database location
inpy;15,"Name of database to be used in form"
*"): let ans$=ans$+"_dbf” endif
let dbf_name$=ans$: print at 15,1;"Database name : ",ans$; tab 80;
inpy:16,"Description of database": let dbf_desc$=ans$: endif
yorn;23,"Add form now" if ans$="y": append
i=1: let j=form_height
"Jet form_paper$="" let form_ink$=""
let dbf_loc$="". let dbf_name$: f_<
while i<=j: let form_line=i: let form_text$=rept(" "form_width)
let form_font$=rept("N" form_width)
append : let i=i+1: endwhile : retum ; endif
yom;23,"Still want to add a "+form$+" form’. if ans$="n": retum : endif
cls : endwhile
endproc
proc form_print
local i$ j$,h1$,h2$, br.eripp,fpp,norm$,bar$,bp.tp, atline,formct,pg$,nl: use "s”
let bp=recnum(): let norm$=rept("N" wide): let bar$=rept(’-", wide): let ni=high: let ffp=0
let i$=str(count()-1 2,0): let j$=str(recnum(),2,0)iny;23
defy;22,"Begin print at record [0-"+i$+"]" jS: let br=val(ans$)
if br<0: let br=0: endif : if br>count()-1: let b=count(}-1: endif
if br>recnum(): let j$=str(br,2,0): endif
defy;23,"End print at record ["+str(br,2,0)+"-"+i$+'}" J: tet er=val(ans$)
if er<br: let ebr. endif : if er>count()-1: let er=count()-1: endif
let pg$="n": let h1$="": let h25="": let lpp=0
if br<>erliny;23:yorn;22,"Print heading for the "+str(er-br+1,2,0)+" records”: if ans$="y"
print at 23,1;"=> ";: input h1$:liny;23: print at 23,1;"=> ";: input h2$: endif
if hi$<>"" let tp=2: if h2$<>"": let tp=4: endif : endif
liny;23:yom;23,"Fit forms on a page": let pgS=anss: if pgS="y"
defy:23,"Lines per page ['+st(nl,2,0)+"-200","66": let Ipp=val(ans$)
if Ipp<ni: let Ipp=ni: endif : if lpp>200: Jet Ipp=200: endif
let fpp=int((ipp-tp)/nl)
if fpp>1:defy:23,"Form per page [1-"+str(fpp,2,0)+'T"str(fpp,2,0)
let fpp=int(val(ans$)): if fpp<1 or fpp>(Ipp-tp)M!: let fpp=int((Ipp-tp)/nl): endif
endif : endif : endif
if er<>br and tpp
‘Page length = "+str(lpp,2,0)+" , Heading = "+str(tp,2,0)+", Forms per page = "+str(fpp.2,0)
S retum : endif : endif
use "f1": locate form$: next
fet atline=tp+1: let formct=1
rinting”: let in=len(form_textS): let blk$=rept(’ ",In)
Iprint h1: if tp=4: Iprint : tprint h2$: endif : Iprint bar$: endif
use "s": position br: while recnum("s")<=er and not eof("s’)
use "f1": locate form$: next : while not eof() and form_name$=form$
let |$=form_text$: let f$=form_font$: let =form_line: use 12": locate form$,|
let ans$=": while not eof() and field_form$=form$ and field_line=I
let fl=field_line: let fe=field_column
if fc>len(ans$)+1: let an: ins$+$(len(ans$}+1 to fc-1): endif
form_fvshow2,ans$: next : endwhile
if len(ans$)<len(I$): let ans$=ans$+l$(len(ans$)+1 to len(i$)): endif
2: let sf$="": let ef$="": let HS=f1 .form_font$(1)
"let sfS=bolds$: let ef$=boldes
let sf$=conds$: let ef$=conde$
is$: let efS=italeS
unders$: let ef$=undereS
"W" let sfS=wides$: let ef$=wideeS
ins$, tab 80;
endif : endif: endif _ endif : endif
: while i<=In.
i=1 and (ans$=bik$ or {1 form_font$=norm$). let i=len(ans$)
else «if f$<>f1 form_fontS(i): let iS=f1 form_font$(i)
3 =" et S="N"
let nsf$=bolds$: let nef$=bolde$: tet If$="B"
"C" let nsf$=conds$ let nef$=conde$: let f$="C"
let nsf$=itals$ let nef$=itale$. let fS="I"
undersS. let nef$=undereS. let f$
else . if $="W" let nsiS=wides$ tet nef$=widee$. let IfS=
endif. endif: endif endif endif
Iprint sf$+ans$(\p-1 to i-1).efS,. let sfS=nsfS. let efS=nefS: let Ip=i+1
endif : endif: let =i+1: endwhile
if Ip<=in: Iprint sf$;ans$(ip-1 to In); endif: Iprint ef: let efS="": let IfS:
use "f1": next : endwhile : use "s" next. let atline=atine+high
if pg$="y’: if formct>=fpp: let i=atline: while i<=Ipp: Iprint : let =i 1. endwhile
if tp and recnum()<=er and not eof()
(print h1$: if tp=4: Iprint : print h2$: endif : Iprint bar$: endif: let formct=1. let atline=tp+1
else : let formct=formct+1: endif : endif
endwhile : use "s": position bp: use “f1"
endproc
proc form_print1
msg;23,"Printing listing of defined forms"
Iprint : Iprint "FORMS DEFINED IN FILES form_fm1 AND form_fm2 ON “fd$
Iprint tab 60;date(2)
Iprint : Iprint : search form_line=0
while found(): Iprint "Form name : ",upper(form_name$)
Iprint " Description : ";form_desc$
Iprint" Form paper m_papers; tab 30,"Form ink : ";form_ink$
iprint" Form length : “.form_height; tab 30;"Form Height :".form_width
if dbf_name$<>"" Iprint" User database : "dbf_loc$;dbf_name$
Iprint” Database desc : ",dbf_desc$: endif
Iprint : iprint ; continue : endwhile ‘liny,23.
endproc
proc form_print2
msg;23,"Printing listing of "+sd$+sn$+" field names"
Iprint : Iprint "FIELDS OF DATABASE ";sd$;sn$;" USEABLE IN FORM “.upper(form$)
Iprint tab 60;date(2)
Iprint : let =O
while i<numfid(): Iprint i; tab 5:fieldn(i,"s"): let =i#1: endwhile sliny,23
endproc
proc form_print3
msg;23,"Printing fields on form "+form$.
Iprint : Iprint "FIELDS OF "+sn$+" DEFINED ON FORM - “tupper(form$)
Iprint tab 60;date(2)
Iprint : print : use “f2": locate form.
Iprint "Line/Column Name Start Width Format Join Symbol"
while field_form$=form$ and not eof(): Iprint
Iprint "[':fieid_line;",":field_cotumn;'}";
Iprint tab 15;field_name$; tab 30;field_start; tab 40;field_width;
Iprint tab 50;field_formats; tab 58;field_join; tab 64;"";field_join$;""
Iprint : next : endwhile ‘liny;23
endproc
proc openy;d$,!$
msg;:23,"open access of “+d$: open d$ logical I$
endproc
proc set_fonts
let pe$=chr(0)+chr(27)
let bolds$=pc$+chr(69): let bolde$=pc$+chr(70)
let conds$=chr(0)+chr(15): let conde$=chr{0}+chr(18)
let itals$=pc$+chr(52): let itale$=pc$+chr(53)
fet unders$=pc$+chr(45)+chr(0)+chr( 1): let undere$=pc$+chn45)+chr(0)+chr(0)
let wides$=pce$+chr(87)+chr{0)+chr( 1): let widee$=pe$+chr(87)+chr(0)+chr(0)
endproc
Next time some new project | haven't yet thought of. Any suggestions? Until then Happy Archiving!
35
PERTINENT POINTS ON QL DISK DRIVES
by Frank W. Davis
| have recently ran across some items that | thought it best to
pass on to the rest of you. | realize that many of you know some,
or perhaps all of this, but it is always good to bring everyone else
up to the same speed whenever possible.
The first came about from the inquiry of two separate people.
The question was "Can | use HD (1.44 meg or 2880 sectors) disk
drives with my QL that is using a Trump Card?" The answer to
this question is a qualified one. Normally the answer would be no.
The QL and the Trump Card would not even recognize that it
existed. The lone exception to this would be if you had equipped
this QL with the Level Two Driver. It would then recognize that the
drive was there, and format and use it as a 720K drive (1440
sectors). It would still not see it as a 1.44 meg disk drive; the
Trump Card does not have the needed hardware to do this. If you
still want to use a 1.44 meg disk drive with either a Trump Card or
a QL Sandy Board, then you need to obtain the FLP/LEVEL 2 RAM
CHIP from either Jochen Merz or from Mechanical Affinity. This
will allow you to use these drives as well as making the QL
Read/Write and format IBM and Atari disks, and a few other
goodies.
The next question was, "Can | use an IBM compatible 1.2 meg
5 1/4 drive with my QL?" The answer to this would normally have
been a definite no. If you check with the magazine IQLR, they ran
an article on how to set up one of these so that it could be read
by the QL as a 720K (1440 sector) drive, but it could still not be
used as a 1.2 meg drive. None of the QL disk drive interfaces
supports the 1.2 meg drive in its native mode. | wish that they did,
particularly when it comes to IBM software that comes in that
format. | could then use it with PC Conqueror or Solution.
The third question | get from many folks concerns, " Just what
ED (extended density 3.2 meg) drives can | use with my Gold
Card or Super Gold Card, and how do | set the switches or pins
on them?" The next page will detail what is needed to set up
TEAC, SONY and MITSUBISHI ED drives. Do not attempt this with
CHINON ED drives. So far CHINON does not work with the QL.
If you find a drive that works that I left out, let me hear from you.
The more we help each other the more we gain.
36
I wish to thank the following for the information contained here. Stewart
Honeyball of Miracle Systems, Paul Holmgren of Mechanical Affinity, John
Toapelliiceys and Don Walterman of the Detroit area, and Bob Dy! of IQLR.
Thanks for the information.
SONY ED DRIVE -- MP-F40W-23 and MFD-40W-21 are the two model
numbers that have been shown to work with the Gold Card and the Super Gold
Card. The only setting available on these drives is the drive number, a recessed
switch at the rear side of the disk drive, as shown in this illustration.
Recdssed Switch
o12ad
MITSUBISHI ED DISK DRIVE--It has the drive numbers 0 to 3 on one side
towards the rear, and has the jumpers that must be set as in the diagram on the
other side near the rear of the disk drive.
drive number
mL sw I/s
TEAC ED DISK DRIVES--Set the drive jumpers as indicated in the
illustration, and the drive numbers on the side, for the FD235] 3631 and the
FD235] 3653.
TEAC FD235J 3631 TEAC FD235J 3653
MODIFIED MODIFIED
SIGNAL
LEVEL
XTRICATOR, Version 1.75
by Gary Norton
XTRICATOR, by Dr. Carlo Delhez, is a Z2X-81 (T/S 1000) emulator for the QL,
offering 64 KB of RAM. XTRICATOR runs in the Pointer Environment, is
SerMouse compatible, and is multi-tasking.
XTRICATOR is a shareware program, available free for testing. As with all
shareware software, if it is to be regularly used, you need to register with
the author. The registration fee is 60 Dutch Guilders or 40 US $. With the
registration, you receive a twenty-five page manual, three disks of ZX-81
software containing 240 programe (original as well as commercial), a free
update to the next version of the emulator, and information about later
releases.
To run XTRICATOR, you will need a QL or clone, 300 KB of free RAM, Toolkit
II (optional, but recommended), and the Pointer Interface Environment file
PTR_GEN (not included with the program due to copyright). Though not
required, I highly recommend that the Gold Card or Super Gold Card be used,
When run on a standard QL, the program runs painfully slow, but will run.
Expect a speed of about a third of a ZX-81 in SLOW mode. Whereas with the
Super Gold Card, it runs at over twice the speed of the original 2X-81.
XTRICATOR runs in all resolution modes of QXL, but it does not yet run on
machines running SMS2, but that is being worked.
If you're using a QL, then why would you want to emulate the 2X-81? Many of
us began our home computing with the ZX-80/1 and discovered the fascinating
world of computing. 7ZX-81 owners discovered much about computers and
programming by trying to get every ounce of power from the computer. We
all went through the frustrating times of the system crashing when we were
about to save a program we just spent two hours typing. But it kept us
interested in computing, and most have fond memories of this little machine.
When the T/S 2068 or the QL came along, many of us moved on, packing the
ZX-81 into a box in the closet. Others remained faithful to the ZxX-81 - I
have mine set up next to my two QLs.
If you had a ZX-81 that didn't crash, had internal 64 KB RAM (no memory pack
wobble), had a (quasi) real keyboard instead of a flat membrane, and had
fast disk drives, would you have been as eager to replace your computer when
a new model was released? You get all this, and fast speed as well with the
Gold Card or Super Gold Card. Later, I'll touch on several
additions/enhancements added that will bring the 2X-81 to another level.
The program disk contains a file ‘XTricator_Xample_Boot'. Edit this to your
boot-up requirements. When XTRICATOR is being executed, you have the option
of automatically setting the parameters you wish. The parameters allowed at
start-up are: /I gives a black screen and white print; /R selects the
initial contents in the 8-16K area, Clear, ZX-Assembler-2, or Coral Basic;
/S selects initial size of the RAM memory, and /W selects a half wide screen
display.
When loaded, XIRICATOR loads a white screen with the familiar ‘K* cursor
No more fuzzy BW television images for the ZX-81! If you would prefer a
black screen with white print, simply press CTRL & F2 (or F12 for those with
38
a Falkenberg QL-Keyboard-90). To revert back to black on white, press CTRL
& F2 again (or F12).
With a few exceptions, when running XTRICATOR, use it as you would the
ZX-B1. You'll recognize the one press Keywords. Press 'R' for RUN, for
example, To load a program, press 'J' for LOAD then either SHIFT P, as in
the ZX-81 or the Quote key next to the Enter key for the Quotation mark,
then the program's name, then another quote: “LOAD “PROGRAM"’. Do not press
"LOAD " Instead of loading the first program that is contained on disk,
as the ZX%-81 does with its tape loading, this command gives the directory of
the disk in the default drive. The same rules apply for keyboard operation
as with the ZX-81, This includes the Function and Graphics modes also. If
you have problems remembering the location of the keys or what function is
located on which key, press CTRL & Fi or Fil to view a digitized image of
the Z2X-81 keyboard. This can also be selected by the ‘H* option of the main
menu. Press ESC or press the left button on the mouse to return to the
gereen, There are two key emulator modes, using CAPS LOCK or not. These
simply give different characters with certain keypresses, basically either
the ZX-81 layout or the QL layout
The feature that really sets XTRICATOR apart from the original ZX-81 is the
Main Menu. This {is selected by pressing Fi. The menu consists of twelve
selections. To make a selection, point and click with your mouse or press
the letter given and then enter. This article is not intended to make it
unnecessary to register and receive the manual, so I will only highlight the
menu options. The primary options allow for changing defaults such as
LPRINT output (to SER1 or to a file) and default directory. Make
screendumps that can be loaded from SuperBasic or from ZX81 mode. Reset the
ZX81. Unlike on a ZX81i, you don't have to disconnect the power supply to
reset. Load ZX-Assembler-2 (ZXA2) or Coral Basic Interpreter (CBI) [more on
these later] into the 8-16K area of ROM. Change screen settings such as
color (black or white), the refresh rate, set the emulator speed, and select
between full size or half size screen width. For QXL users, move the ZX61
window to wherever you'd like on the screen.
XTRICATOR supports several different resolution modes. These are the Low
Resolution or normal mode, with a 32x24 screen; Extended Low Resolution,
with a 32x192 screen; Semi High Resolution with 256x192 graphics; and True
High Resolution with 256x256. The command to move between hi-res and
low-res is supposedly CTRL-F3, however, with my copy of XTRICATOR, I was
unable to load a hi-res program. I kept getting the message "RAMTOP NOT
LOWERED". This in spite of pressing CTRL-F3. Unfortunately, the manual
does not mention this or what to do about this situation.
As mentioned earlier, additions and enhancements were provided to bring the
ZX81 to another level. Starting with the Special Commands. In Version 1.75
of XTRACATOR, there are fourteen of these commands. They are loaded like a
file, but the command name is preceeded with an * and ended with a :. Since
the ZX&1 operating system does not have a Disk Operating System, the Special
Commands, add the necessary commands to operate from disk, They allow a
disk directory to be shown as well as movement through the directory.
Subdirectories are allowed to be created, removed, and made the default.
Files can be deleted, the default drive can be set, and Jobs can be killed.
Also, special files can be saved and loaded.
SIMDOS2 is a RAMDISK driver file that adds a few other commands and gives a
simplified command structure, such as LB:<filename>: which loads a BASIC
program, No manual is provided, but in the ProgInfo_txt file, there is
sufficent information to use this driver.
What truely sets XTRICATOR above the ZX81 (and many other computers as well)
is the supplied Coral Basic Interpreter (CBI), written by Carlo Delhez,.
When running in CBI mode, the first things you notice are the K cursor turns
into a solid black (or white) cursor and the command words have to be fully
typed in. CBI comes with a 16 page TXT file manual on disk. To quote from
the manual, "It combines the efficiency of a new and fast Pseudo Screen
Editor with the ease of a powerful extension of the ZX81 BASIC." Regular
ZX81 programs will run in the CBI mode. Since CBI warrants an article of
{ts own, I'll just say, give it a try, you may never go back to the 2X81
BASIC,
To those who register, on Library Disk 1 there ts another ZX81 BASIC
extender, EXTENDED BASIC, by Frits Beniest. This BASIC extender allows you
to add READ and DATA statements, adds the RESTORE command, as well as LEFTS,
MIDS, RIGHTS, Multiple statements may be on the same line. Graphics are
brought up to the TS-2068/Spectrum level with DRAW, UNDRAW, CIRCLE,
UNCIRCLE, FILL, PAPER, UNPAPER, A few other commands are also provided as
well as existing ZX8i commands enhanced. There's also a nifty demo program
that lets you see things you never thought you'd see on a ZX81. EXTENDED
BASIC gives the ability to easily translate programs written for other
BASICS. It nicely adds features not included on the original BASIC, and
gives another alternative to CBI, but unfortunately a TXT file manual is not
included. With either CBI or EXTENDED BASIC, you'll never want to go back
to basic ZX81 BASIC!
Another included file is ZX-Assembler-2, revised by Carlo Delhez. The
ProgiInfo_txt file gives sufficient information to get the Assembler loaded,
but a TXT manual is not provided. One is, however, available upon request.
I don't have the manual and am not familiar enough with this program to
comment.
One oddity I discovered was when the LPRINT output channel was selected, the
mouse stopped functioning. When this was cleared the mouse became
operational again. In the next version of XTRICAATOR I would like to see
this corrected.
I'm greatly impressed with XTRICATOR. Its a superb piece of programming
with a great deal of effort put into it. The price is right, free, but I
would strongly recommend paying the small amount asked for to register your
copy. With the library disks provided, there is enough programming to keep
you occupied for some time. If you have some favorite ZX81 programs you
would like to transfer from tape to disk to run on XTRICATOR, Dr. Delihez can
provide QZ Fileserver to do the job. There is a disk provided to run on the
QL and a tape to run on the ZX81. To do the transfer, you'll need a serial
interface, A schematic can also be provided by Dr. Delhez that shouldn't be
too difficult for someone to construct if they're knowledgeable in this sort
of thing. Unfortunately I'm not, so have been unable to give this a go, but
if I can overcome my handicap in this area, I plan on transferring several
tapes and will report on the operation of the fileserver.
40
A REVIEW OF QLerk by Eliad P. Wannum
A Financial Program for the QL
‘There have been several finance programs brought out for the QL since the year 1983, but none
that I have felt was good enough to use Sor the middle-class home or for the small business (earning
less than $500,000 per year). I felt that way until Frank Davis gave me a review copy of QLerk to
look at and try asa means of keeping track of my financial records of my counseling business. I have
noticed that even Frank has gone to using it for Mechanical Affinity, and for UPDATE! Magazine.
He had been using either an old TS2068 program or one from his Amiga. He had always said that
the programs for ‘A nancial management on the TS2068 and Spectrum were as good as those for the
QL, and easter to use. He has now, as well as |, changed his mind. This little story of using this
program was done off of Version 3.21, which was released on September 14, 1994.
This program requires you to use either Psion XCHANGE (now in public domain) or
ARCHIVE, 2.38 (supplied with the program). Bill Cable, author of the program, says that his
preference is using ARCHIVE, as it does not have the same memory limitations as when startin
XCHANGE. | tried using XCHANGE and bad no problems, but | used only a relatively smai
database at that time, so perhaps this problem would have shown up later. You should have at least
2. 720K disk drives and a Trump Card to make adequate use of this program. The program really
comes into its own when used with a QXL Card, Gold Card, or a sper Gold Card. A hard drive
and ED disk drives make the program even that much more useful. For reasons of money, these
devices make sense, the less time a business spends at the screen, the more time is spent on the
business, and not on the financial house keeping chores of mailing lists and billing.
ve what can you do with this program? Well, you can at the same time keep track of upto 5
check writing accounts from a bank, and Bill says that there is no limit to how many charge
accounts you can keep track of. | only have 7 credit cards and found it quite easy to use the program
to track these and my two checking and one savings account. | know at all times who is in my
database of clients and have at a glance information on billing them for services. When I want to
doa mailing to clients, suppliers and lors I do business ith: the print facilities allow me to do
this ina generally business accepted manner. It works great with my HP Deskjet printer. I have not
tried it with my Canon Bubbleet yet, as it is off for repair.
The statements I have generated with this program and given to my accountant have
wipeeet her, as she swore they bad to have come from an expensive MAC or IBM program. 1 had
to have her over to the office to see just what control | actually bad over records and the ease with
which it was done. I just may get a QL put to use in her office yet! She tells me I should , at tax time
be able to give her all the records | peed to prepare both my ‘onal and business taxes. She gave me
only one barrier to stand in the way of doing this. THE ONLY THING THAT CAN GO
WRONG IN THIS AREA IS FOR THE USER TO FAIL TO KEEP UP WITH ENTERING
THE DATA, It is just like vitamins or medicine, it does you little good to have them, if you do not
use them when you should.
The program needs to be configured for your system when you get it. The well supplied manual
tells you what to do tn order to set up the program for your paride uses. You can always amend
your set up or add items, such as new names or addresses (as well as changes), on the fly. T have had
two manuals for this program, the first was 8 1/2 by 11 inches in size, the next was 6 1/4 by 8 1/4
inches. While the print 1s clear and of a readable font in the new version, some of the print was
rather small and may be bard on the eyes of some.
One limitation to keep in mind, is that due to this being an ARCHIVE based program you
will have a 2,000 record limitation if it is ordered on two fields. There will come a time that you
may need to keep more than one record, or you can use the QLerk process REMASTER to remove a
iar of old records. This is also still a DATABASE type program, so for those who have never
ad the nerve to approach one of these, you ipiaes it needed on at least a limited basis.
If] was a movie reviewer 1 would give this program a thumbs up. I hope in the next issue of
UPDATE! to tell you more about this useful, USA made program. Check the ad in this issue.
41
REPORT ON THE DAYTON COMPUTERFEST IN AUGUST
by Frank W. Davis, Editor
For the 6th year in a row now, we at Mechanical Affinity, and
for the 5th year for UPDATE! Magazine....found our way to the
Hara Avena in Dayton, Ohio on the last weekend in August. It
always requires far more work to get to the show and set up than it
may appear, what with banners, catalogs, pricing items, etc. So, do
I think it is worth it? Yes.
It is shows like this and the Miracle in Newport show that give
us our best chance to get together with a large crowd of QL, Timex
and Cambridge Z88 users each year. It helps put a face to go with
the voice and letters that we get from so many subscribers and
mail order customers. I have become personal friends with many
of you, and am grateful for having done so. All ve the people I have
met have in some way or another enriched my life. Thanks. More
than once I have ree where some "so-called expert" has talked and
said that computer users were people who got wrapped up in their
machines and lost social skills. I have met only a few people who I
think fall into that category. For most of us, it has been a learning
experience that has caused us to meet and interact with many
people we would otherwise never have met or talked to.
Thanks to Gary Ganger and to all of the support that Dayton
Microcomputer Association gives for the production of this large
scale show that they put on each year and for setting aside part os
for Sinclair dealers. Socially and financially it was rewarding.
Thanks to the ea iii SMUG, Neal and Bill for being there each
year with your tables next to ours. Thanks to Don Lambert and
Bob Swoger for having your table on the other side of us for
TSNUG. And thanks for the last two years to Tim Swenson for
putting on such a great picnic Saturday evening, giving all of us
time to meet and socialize away from the show.
Shows like these are fun, and a chance to buy from a large
selection at bargain prices. It brings out the "old Hoosier horse
trader" in me. I hope to see you there next year.
42
PAA AAR ARPAAPAAAA AAA PAPA PAA AHAAA Av: AAAHAARPD AH AAA AAAGHFAPAPHAHAFHANGAANYH
PRESENTING @QLerk
A FINANCIAL PROGRAM FOR THE SINCLAIR QL
By
Wood and Wind Computing : Bill Cable : RR3 Box 92 : Cornish NH 03745
Phone : (603) 675-2218
For the first time you have the capability of keeping complete and accurate financial records for
the Home or Small Business with your QL. A friendly Financial Clerk to serve you. The code is
written in the ARCHIVE Programming Language and is completely accessible to the user. All
functions are selectable from standardized menus. No knowledge of ARCHIVE is required. The
program works from a common sense point of view without imposing accounting theory on the
user. Although it has many powerful features the user can use only those features desired,
ignoring the rest. Recommended minimum system is a Trump Card with 2 DD Drives. It works
much faster on Gold Cards and Super Goid Cards. Latest Version is 3.21
Pays Bills Receives Income Reconciles Bank Accounts
Makes Invoices Makes Purchase Orders Prints Checks
Prints Address Labels Handles Sales Taxes Handles Income Taxes
Does Payroll Keeps Inventory Handles Periodic Payment
Periodic (Cyclic) Payments Periodic (Cyclic) income Maintains Savings Accounts
Maintains Cash Accounts Maintains Charge Accounts On-line Help
Elaborate Data Protection Easy Built-in Data Backups Easy Data Correction
Category Report (why,when) Activity Report (who, when) and much more
PRICING
Public Domain Demonstration Version of QLerk $5.00 US/Canada
(refundable if QLerk latter ordered) $7.00 Elsewhere
QLerk Program on Disk with Tutorial Doc File $29.00 US/Canada
$31.00 Elsewhere
QLerk Manual (150 pages of details) $29.00 US/Canada
$34.00 Elsewhere
QLerk Program with Tutorial and QLerk Manual $50.00 US/Canada
$57.00 Elsewhere
The Demonstration version will allow you to play with most of QLerk’s features so you can decide
if you really want the program. Some features are absent and the code is not inspectable. The
program with Tutorial is the complete program with inspectable code and enough instructions to
try out the basic features of QLerk. It is sufficient for users with simple needs. The QLerk Manual
is indexed and covers ali features in detail for those with more complex needs or with an interest
to know all the details. Order it today increase the usefulness of your QL dramatically.
SESESFSSSSSSSISSSSSISHSSSSSSSSSSISSSSIFSISSSSSSSSSSSSS$SSSSSHSSSSH$SSFSHSHFSHIFHSHS:
SSSDRSSSSESSHODSSE SASH DEE SNTSSS SeDTR POOP NUON Tee a rsoEnE Nye rRE Onn
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
$
Z—-88 FLO-—-CHART (C) 1989 MIKE FINK
ACTIVATE
PANEL FiLe
Z-88
PANEL PRINTER ED'R —p4
COMPUTER
ACTIVA T!
COMPUTERS PRINTER
DISK DRIVE
or EPROM
LOAD
SAVE
THEMINAL
LOAD
SAVE
FASS
PIPEDREAM LEAD FILER SEND MODEM
RECEIVE
FAX O2 OTHER
COMPUTERS
RE<eive EXPORT
USE -MOoDIEY
AILe NAMES
USE - Modi’
PRINT ONLY
PRINTER ACTIVATE
CORAPUTERS PUNTER
ANY DATA, TYPED INTO PIPEDREAM, DIARY OR PROGRAMS IN BASIC, WILL
AUTOMATICALLY BE TEMPORARILY SAVED IN SUSPENDED ACTIVITIES, WHEN
GOING FROM ONE APPLICATION TO ANOTHER. TO SAVE A FILE PERMANENTLY,
IT MUST HAVE A NAME AND BE SAVED TO THE FILER. DATA TYPED INTO THE
PANEL CAN BE ACTIVATED IMMEDIATELY, OR SAVED AS A FILE, OR BOTH.
PRINTER EDITOR MODIFICATION MUST BE ACTIVATED TO BE USED, OR CAN
EXIST UNACTIVATED AS FILES TO BE LOADED OR SAVED (OR ACTIVATED).
FILES FROM PIPEDREAM, DIARY AND BASIC CAN BE SENT TO A PRINTER FOR
PRINTING, EVEN IF THEY HAVE NOT BEEN NAMED AND SAVED. FILES FROM
THE FILER TO THE THE DISK DRIVE, CAN ONLY BE SAVED OR LOADED, TO USE
OR EXECUTE THEM, THEY MUST FIRST BE LOADED INTO WHERE THEY CAME
FROM.
44
FOR THOSE PEOPLE THAT DESIRE A PORTABLE COMPUTER, OR NOTEBOOK COMPUTER,
THAT IS LIGHT, INEXPENSIVE .. AND DOES NOT REQUIRE THE USER TO BUY ANY
SOFTWARE, THE Z88 EXISTS FOR THEM. LUCKILY, IN THE UNITED STATES, THERE
IS A COMPANY CALLED DOMINO CUBES, THAT HAS CREATED ADDITIONAL FEATURES
FOR THE Z88, THAT MAKE THE POWER OF THIS COMPUTER MORE FORMIDABLE THAN
IT ALREADY IS, AND ARE NOT AVAILABLE AT ANY OTHER PLACE IN THE WORLD !!
A PARTIAL LIST FOLLOWS;
1. A 960@ BAUD FAX/MODEM, THE ONLY FAX/MODEM IN THE WORLD THAT NEEDS
NO SOFTWARE! IT WEIGHS 7 OUNCES AND IS THE SIZE OF A PACK OF
CIGARETTES.
A BATTERY OPERATED 2 LB. PORTABLE DISK DRIVE.
A BAR-CODE READER.
A 1 LB. "BATTERY PAK" THAT WILL RUN THE Z FOR 3 MONTHS.
REPAIR SERVICE.
UNDERSTANDABLE MANUALS WRITTEN BY MIKE FINK
THE ONLY MAIL MERGE PROGRAM THAT WORKS!
A SHIRT POCKET EPROM ERASER.
TWO TYPES OF EDITING PROGRAMS WHILE IN BASIC.
a.A THIRD TYPE OF EDITING FOR BASIC USING PIPEDREAM.
10. A PRIME NO. PROGRAM UNIQUE TO THE WORLD.
11. A MONEY TABLES PROGRAM OFFERING ANSWERS TO ALL QUESTIONS INVOLVING
TIME, MONEY AND INTEREST.
12. MANUALS EXPLAINING FORMATTING AND PRINTER EDITOR WAYS NOT FOUND IN
ANY OTHER MANUAL OR PUBLICATION.
13. A SPELLING CHECKER, (FROM ENGLAND).
14. THE ABILITY TO MAKE MULTIPLE COPIES AND HOW TO USE MACROS.
a.AN INTERNAL MAGICAL REMOTE CONTROL ROBOT! «!x«!e!
15. A PROCEDURE TO ALLOW LOADING ALL EPROM FILES WITHOUT DANGEROUS CLI
FILES BEING CREATED IN :RAM.~- (WHICH CAUSE FAILURE)
WOAH RON
TO RECEIVE ALL OUR LITERATURE AND A PRICE LIST, SEND $3 IN STAMPS OR
CASH (no checks, please) THE $3 WILL BE RETURNED AT YOUR FIRST ORDER.
MAIL ADDRESS IS: 130 W. 42nd ST. 28th FLOOR, N.Y. CITY 10036
FAXES CAN BE SENT TO 212-869-1526
MIKE FINK PRESIDENT OF DOMINO CUBES
Z88 Rom and Internal
Ram Upgrade
by Dave Bennett
The Z88 Users’ Ciub in England is no
tonger viable. Membership had fallen
to 1000 members from 4000 members. Roy
Woodward decided to discontinue the
Group. He is still providing support
for the Z88 in a business calied
Woodward Technology.
Roy is selling back issues of the
Club Magazine 'Z88 Eprom’. The Club
also sold 288 parts. Roy is selling
some of these including Version 4.0
Roms and larger size internal Rams.
had ordered a Version 4.0 Rom and
a 512K Internal Ram last year. |
waited months and months for them to
arrive. | talked to a couple 288 users
in the U.S. who told me it was best to
call Roy. | finally called him in
April.
Apparently he could not get 512K
Rams. This was holding up the order. |
said that | was willing to accept a
128K Ram. The 128K Ram is also cheaper
and easier to install. The Ram and Rom
arrived a couple weeks later. It was
another couple weeks before |
installed them.
Installing the Ram and some Roms on
a small number of Z88s requires
soldering and desoldering. So | would
not attempt this yourself unless you
are comfortable soldering circuit
boards. And you need the proper
equipment. A low wattage soldering
iron and a solder sucker are
essential. If you are not comfortable
doing this | would have a computer
repair facility do it for you.
your Z88 is working fine and you
have no need for additional internat
Ram, you may not want to install the
Ram and Rom at all. The Rom provides
support for additional internal Ram.
It also corrects a few bugs such as
the famous :Ram.- bug. The software
still works the same. Pipedream still
is exactly the same.
The instructions for installing the
Ram and Rom are very clear and well
written. itis very easy to remove the
circuit board. It only takes a few
minutes.
The circuit board on the Z88 is
sensitive to heat. When | desoldered
the Ram one of the lands came off the
board. | fixed it with a jumper cable
>
made out of a very thin wire strand.
When | was finished | put the Z88
partially together. | tried it and
there was no display. In addition it
was making a slight humming sound. It
should not make a sound at all!
| thought that my 288 was gone. |
fet it sit around for a few weeks
without touching it. Finally | decided
to look at it again.
was going to remove the socket for
the Ram and install another one. But
decided to resolder the old socket. |
put it together and it worked!
Everything works on it. However the
instructions say that you should have
118016 free Ram. | get 115446. !
talked to another Z88 user who
performed the installation. He got the
same result. Puzzling! Is it an error
in the instructions or a typo. Or did
we both make the same mistake. | am
not going to worry about it. The 288
is working fine otherwise. 115K is a
lot better than the 12K | had before.
1 did not experience any crashes
with the Version 2.2 Rom. But this
upgrade gave me a chance to increase
the amount of Ram without using up any
more siots. All three of my slots are
filled.
The Rom was 24.95 and the Internal
DIY 128K Ram was 19.95. Both of these
upgrades make a fine addition to your
288. They are both available from
Woodward Technology, P.O. Box 15,
Belper, Derbyshire, U.K. DE56 OXE. If
you pay by credit card the exchange
rate is automatically taken care of.
288 This and That
As far as | know the Z88 is still
being manufactured in Scotland. |
wonder just how many Z88s have been
sold? What is your Serial Number? |
have an early Z88. Mine is 2996.
My Z88 tends to give off a lot of
Radio Frequency Interference or RFI. |
have noticed that other 288s give off
much less. Is it because I have an
early Z88? My Z88 has been opened a
few times. Could some seals have been
disturbed causing RF leakage? Does
your Z88 cause interference to nearby
TVs and Radios?
Timex Publication Index _ part 1
Many moons ago I had to prioritize the many ideas I had for my
computing projects that were filling my spare time.
I also had a LOT of Timex/Sinclair publications with tons of neat
articles that I was interested in doing with my Timex/Sinclair
machines.
Since I had a cartridge version of Pro/File for the Timex 2068, (room
for up to 37,000 bytes of database records) I indexed all the
listings and hardware articles contained in this 4 foot pile
This allowed me to quickly find things to do and to answer
us (if answers were printed) for my Timex projects. The
results ended up occupying 2 files totaling more than 39,000 bytes
and filling about 317 record entries.
File Record Explanation:
I only listed articles that had program listings or real hardware
work that I could do. Reviews and simular articles were left out
because there was nothing there that would directly benefit my
computing at the time of need.
I chose to index 7 publications because they contained the most
information, and I had an average of 90% of the total issues they
printed.
So here you are, if you can use this information then this has done
its job.
Key to the listings
The listings were done with the Title or at least the reason for
inclusion in the index first, followed by a 1 or 2 word clue that
told me if the article was a program that was type-in-able
(software) or about a (hardware) modification/fix or improvement. I
then used a 3 letter key identifing the publication containing the
article, followed by the issue or volume and lastly some clue as to
why I listed it if the title was not informative enough.
The Key used for the Publications:
SUM = Vols 2-6 to 4-7
SWN = SYNCWARE NEWS 1-1 to 5-4
SYN = SYNC Vols 1-1 to 4-2
TD = TIME DESIGNS 1-3 to 4-4
TMZ = TIMELINEZ pages 1-8, 17-358, 364-415, 443-458
TSH = T-S HORIZONS #1 to #21
TSU = TIMEX SINCLAIR USER Vols 1-1 to 1-7
USA version
47
1000 TIPS
SYN
TSH
TSU
21
35
6
1-4
hard
ZX80 RESET, INVERSE VIDEO
ROM, RAM
NVM DISABLE
REPLACE CHARACTER SET
1000 & ZX80 TIPS soft
SYN
1-2
13
logic
fix for above, CHR$ on more logic,
simulate PAUSE, convert variables
fix for above (logic),
VARS conversions, DIMed arrays
REM usage, fix for DIMed arrays,
PEEK & POKE
MC in REM, more logic using
Galaxy game
stBw.
plotting,
store 3 words in array
flag tips, DEF function
DEF func fix
"speed up
" " "line inputting
logic operators
KE fix
T, INKEY$, ZX80
array storage
soft
EDIT usage
memory saving
" "
set ramtop, fix for load circuits
trap inputting nos.
ramtop & Compusa
string input rout. (Get)
fix for Die above
set ramtop
Strings & things
simulate PAUSE
BASIC tips
cracking AUTO-RUN
BASIC tips
Vu-Cale mods & tips
BASIC tips
POKEs, PEEKs
INKEY$,
assword, hide prog lines, SAVE/
PoaD time, print last 2 lines, COPY
full screen, find print coordinates
unLIST lines, unlock tapes, MC
storage, clock unused codes
_ “#16 program stopper, Vu-Calc mods
“#20 Files & ?
TSU 15 mem save, lock up, vary COPY size
"16 PEEK & POKE
6 SHOOTER
SYN 22 8k
soft game
16 PIN BOWLING
TSU 12 1000
"13 "fix
soft game
64 COLUMN MODE soft
SWN 31 2068
TD 23 "
2040 PRINTER hard soft
SWN 26 make work with MemoTech 16K
"41 Remove caps
SYN 42 & ROM bugs
TD 31 printer instead of display
"42 teas cable
TMZ 66 offfon
"73 fix for above
“234 2068 offfon
"256 on/off switch
2050
TD 41
hard
Spectrumize
2068 GAZER'S GUIDE soft
TD 21 astronomy
2068 TIPS soft
Sum 311 SAVE,SCROLL, LOAD INKEY$,
INPUT
"44 OmniCalc 2
SWN 26 INPUT prompts
* 31 " iy extra
print using MC
fix for above
Poly-Scroll
simulate PAUSE
inputting Ep. tips cracking progs
KEs, BI SCROLL, CAPS,
DELAYS, SCREEN
cracking, BIN
store MC, Passwords
"197 oW
"135 all kinds
"144 INKEYS. VARS
* 172 timer, VARS
"234 screen save, POKEs, invert display,
print full screen
"234 POKE BORDER color, ramtop
without CLEAR, time, POKEs,
odd/even, darken display,
dbl. space LISTings
"235. store nos. as characters, time
"311 INK tips
TSH #7 Displays, 22 & 23 line Scroll, POKEs,
Flags, BEEP
“#11 Screen LPRINT
"#12 OPEN#, CLOSE#
“#17 many POKEs
"#18 fix for POKEs #17, pixel screen scroll
TSU 16 display primer
ABC-123 solt game
“ SWN 43 1000 game
"44 * "pt?
"45 bug fixes
ACEY DUCEY soft game
SYN 1-1 ZX80
ADDITION soft
SWN 5-5 2068 math tutor
ADVENTURES IN THE RAM JUNGLE
TD 16 explore RAM structure
"241 corrections, pt 2
"22 1000 based, pt 3
"23 fix's for 22
soft
ADVENTURE
SYN 13 ZX80
soft game
ALIEN LURE
TSU 1-2 1000
soft game
ALIEN TREASURE
SYN 24
"95
soft game
fix
ANIMALSLLL
SWN 46 animal quiz
soft game
49
ARTILLERY soft game
SYN 12 ZX80
"1:3 fix for above
“odd 8 ML (2)
"1-6 another
AUDIO FREQ COUNTER soft
SWN 31 1000
“33 "bug fix
AUDISY soft
SYN 36 _ store sound in 1000
AUTO ANALYSIS soft
SWN 34 1000
A & J ENHANCEMENT soft
Sum 34 Tasword
“3-1 Tasword, VU-Calc
SWN 3-5 notes
TD 36 file manager
TMZ 30 = 1000
"114 Tasword &
"129 2068 cat prog
"144 Tasword
"170 CPI tips
TSH #14 SAVEing LOADing
"#16 " "
"#18 tips
BANK SWITCHING 1000 hard soft
TSH #4 ptl
"45 "9
"#6" 3ptl bug
“#7 "4
"#9 "5
"#10 "6
“ #1b "7
"#12 " Blast
“#16 bug fix pt 7
BANK SWITCHING 2068 hard soft
SWN 23 add 128K & decode EXROM
"3-4 OUTs explained
"36 using extra banks
TD 25 ptl
"26 "2
"31 "3
"32 "4
“33 " 5, end
"45
TSH #19 ptl
"#20 pt2
"#91 pt3&4
BANNER soft
Sum 45 both
SWN 24 1000
SYN 26 large Ictters on screen
TMZ 244 2068 mini/maxi banners
TSH #10 1000
"#11 2068 bug fix
TSU 13 2068
BASCII soft
TMZ 251 convert BASIC to ASCII file
“257 fix for above
Tt 31°" *
BASIC soft
Sum 31 Beginning BASIC pt 1
" nwo
"33 " 4g
"34 " woomg
TSU 1-2 How to Program pt 2
"on " "3
BATTLESHIP
SYN 21 ZX80
BEETHOVEN
TSU 1-1 music from the 1000
soft music
BETA BASIC soft
SWN 56 tips & utils
BINOMIAL BINGO
TMZ 225 1000/2068
soft game
BINOMIAL DISTRIBUTION
TSU 1-4 1000
soft game
BIT GRAPHICS soft
SWN 46 _ for big printers
BIT TESTING soft
SWN 23 depict 255 bit patterns 2068
TMZ 104 1002068
BLABBERMAN
TSU 16 1000
BLACK HOLE
SYN 13 ZX80
"14 fix for above, (3)
"45 uw om
BLINKER
SWN 53 blinker code 2068
BLOCK DELETE
SYN 32 1000
TD 41 Spectrum
BOULE
SYN 42
BRICK BUSTER
SYN 35
"36 fix for above
"41 mods
"42 fix
BUILDING HEAT LOAD
SYN 26
BURGLAR ALARM
TD 23 2068
"94 " fix's
BUS EXPANSION
Sum 21 Spectrum to 2068
SWN 35 ob6
CALCULATING THE DAYS
SYN 31
CALENDAR
SYN 31 figure the days
TMZ 86 Perpetual |
"Qs "9
"og noon
CANNONADE
SYN 15 ZX80
soft
soft game
soft
soft
soft game
soft game
soft
hard soft
soft
8 prog to draw bus for cart board
soft
soft
soft game
TS2068 UPDATE ISSUE DISKS
These disks contain at least one major piece of software written
specifically for disk drive and are guaranteed to be worth the money.
The rest of the disks are usually filled with various utility programs
taken from the issues of UPDATE, shareware or public domain. On most
of these, half the money goes to the author and is meant to encourage
new programming for the TS2068 that makes use of the various disk
drive systems. To have your particular disk system supported here
requires that someone write or alter the software from one system to
the other. We are always open to your help and suggestions, but have
limited time and programming resources available here. The prices are
as listed beside each piece of software. We can provide all but 3"
disk formats as far as size and disk density. We accept cash, checks,
money orders and C.O.D.
1) THE WIDJUP COLLECTION, contains most of the popular programs
formerly offered by WIDJUP and written by the late Bill Pedersen. This
is a two disk set, and does not include his CAD Program. It contains
editors, printer drivers, games,TS2068 tutorials, etc. This is a new
release and we will have more about it next issue. In Oliger or Larken
disk formats. The price is $20.
2) WIDJUP’S CAD PROGRAM, a‘long time favorite that will give you
professional results from your TS2068 in the area of computer aided
design and the development of printed circuits. With the right
graphics it has been also used to print a page for desk top
publishing, or computer art. It requires no expanded memory and is
available for the following setups: (a) Oliger, for either the
Olivetti Ink Jet printer, or for IBM compatible printers. (b) Larken
for IBM compatible printers or for the Olivetti Ink Jet printer.
Please specify disk size, format and printer type. The price is $20.
3) OLIGER DISK DRIVE BBS PROGRAM, this creates a single user BBS
program, with several message bases, E-mail, and SYSOP Chat area. We
have also added many other Oliger disk programs to this collection, as
well as some playtime. This was written by Paul Holmgren. The price is
$20.
4) 24-PIN BIT IMAGE GRAPHICS FOR 24~-PIN OR BUBBLE JET PRINTERS, for
Epson emulation modes, by Larry Crawford. This program takes the
mystery out of graphics and some of the newer printers out there on
the market. We also include some extra software with this one, and for
just $15. {ft is available in Larken and in Oliger disk formats.
Needless to say we are always interested in a new issue disk we can
present here for our readers, so those who are out there writing
programs, send them to us to look at. This helps to keep the TS2068
alive. It is also a way to pick up some pocket money. We usually make
royalty payments twice a year based on previous sales.
QL UPDATE ISSUE DISKS
These disks contain at least one MAJOR piece of software
written specifically for disk drives and are guaranteed to be
worth the money. The rest of the disk space is filled with various
utility programs, or support files either for the major p of
software or from various issues of UPDATE. Some files are taken
from public domain or shareware if deemed of sufficient use. Half
of the money goes to the contributor of the issue disk on a bi-
annual basis. The rest goes to UPDATE to support the issue disk
program. All are $20 US$ , except where noted. Add $5 US$ extra
for shipping outside of North America. All known QL disk formats
are supported; please tell us which you need.
1) HARTUNG UTILITY ISSUE DISK- Here are some excellent
programs, such as a stand alone database, Address and QSO files.
All are written in SuperBasic. This gives lots of programming
hints and tricks for QL programmers. This has been recently
updated and improved by Bob Hartung. The Address File can be used
as an Inventory program, or use it to print out labels. Both paper
or screen printout can be Alpha sorted or by last name. $15.
2) CABLE ARCHIVE ISSUE DISK- Written by Bill Cable. Contains
many useful ARCHIVE programs that work on any Archive database.
Titles include: DIR (directory within Archive), SCAN (quick
database display and print), FREQ (frequency distribution of a
field), SPLIT (split 1 database display and print), JOIN (join 2
databases into 1), REFIELD (redefine field names), KEPLACE
(replace text within a database), MATCHER (find dupes within a
database), WINDEX (word index any text file), GROUP 1 to 3 (useful
procedures from UPDATE articles), QUERY (interrogate any
database). Also includes extensive DOC files about the programs
and ARCHIVE in general. The price is $20.
3) QLUSTER 55109 ISSUE DISK- A great program from Al Feng to
provide you with many utilities to handle & unclutter your disks &
MDVs (and it now supports sub-directories). Some of the features
concern COPY, DELETE, FORMAT, VIEW, as well as extended use of
some of the TK2 commands (TK2 needed for this program).The program
is TURBO compiled for a speedy program. It is MINERVA compatible,
multi-tasks and allows you to use minimal keypresses to do the
job. The price is $15.
4) QLUMSI DOS 4.30 ISSUE DISK- The latest version of Al Fengs
extensively updated MSDOS simulator and front end program for the
QL. Other programs on the disk enhance file management and cloning
of other programs. Educational and useful. The price is $20.
5) QLAMBer- Al Fengs latest issue disk. He calls it A- Moving-
Box/enhancedrelease. This greatly extends the selective file
management capabilities of the QLUTter program by additionally
accessing six TK2 keywords, while reducing CODE size, easily
supports sub-directory access, and easily multi-tasks within QRAM
or Taskmaster. TK2 must be on ROM or loaded prior to start up of
program. The price is $15.
Live Music
Archive
Librivox
Free Audio
Metropolitan Museum
Cleveland
Museum of Art
Internet
Arcade
Console Living Room
Open Library
American
Libraries
TV News
Understanding
9/11